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This report is a supplement to UCRL report 81803* It contains 
detailed test results ^ more information re^ardin^ test procedures? 
listings of software used in the testing > and microcode listings* 
Tests were run usin^ the LSI-11/2 (KDll-HA) with MSMll-DD 32K memory 
and the U*C»S»D* Pascal 1*4 system* 



Appendix A - P-machine Instruction Execution Speeds* 

These results are from the test series described in UCRL 81808* 

Report 1 - Compilations (partially listed in Table i of report) 

Report 2 ~ Whetstone 

Report 3 - Sorts 

F^eport 4 - Cross-Reference r 

Report 5 ~ E^alanced Tree Search and Insertion 



Appendix B - Standard Procedure Execution Speeds* 

Execution speeds of standard procedures were measured in the 
same test series* Note? no microcode was used for these tests* 

Report 8 - (five of six) Compilations 

Report 9 - Whetstone 

Report 10 - Sorts 

Report 11 - Cross-Referencer 

FJJePort 12 - Balanced Tree Search and Insertion 



Appendix C - Execution Speeds of Hicrocoded P-machine Instructions* 
These results were summarized in Table 2 of UCRL 81808* Note? 
LDOy SRQf and LLA are not in microcode* They were removed 
to make room for microcode routines needed to do the timinsS* 

Report 6 - Microcode Times 
Report 7 - Macrocode Times 



Appendix D - Program Execution Speeds* 

These results were summarized ? with regard to improvements 
derived from microcode? in Figure 1 of UCFs'L 81808* The U*C*S*tU 
P~machine interpreter can be conditionally assembled to make 
use of extended .PDP-11 instruction sets* Four versions of 



the interpreter were tested? 

ANY 11 ~ only uses the base FDP-11 instruction set 

LSI- 11 - uses the base LSI -11 instruction set 

LSI/EIS/FIS - uses the base LSI-11 instructions plus EIS/FIS 
instructions 

LSI/EIS/FIS/HIC - uses base LSI-il instructions 3- EIS/FIS 

instructions? Brid microcode 



Report A - Comp list ions 

Report B - Whetstone 

Report C - Sorts 

Report D - Cross-Ref erencer and Bslsnced Tree Search and Insertion 



Appendix E - Report Generators 

STATS - used to convert raw test scores to report 1-7 
CSFSTATS - used to convert the raw test scores to report 8-12 

Appendix F - Pascal Test Programs 

WHETSTONE - Whetstone Synthetic Benchmark 
BTSI - Balanced Tree Search and Insertion 
RQUICKSORT - Quicksort (recursive) 
QUICKSDFiJT - Quicksort <non recursive) 
HEAPSORT - Heapsort 

Appendix G - Hicrocode Used for Timing 

CNTERtHIC - used for reports 1-5 and 7 
CNTINT*HIC - used for report6 

Appendix H - MACRO-11 Code Used For Timing* 

These are the key assembly code routines that were inserted 
into the U + C + Silu P-mach ine interpreter to do the timins^* 

P~code Timer - used for reports 1-7 

Standard Procedure Timer - used for reports 8-12 



Appe^ndiK I - Microcode Listing 



Test Procedure Notes 

Some of these tests included 3n interactive portion* In 3il 
cases instructions were enterred into the input buffer before 
the proffiPts occurred* 

The timing method employed in these tests is 3S follows* A tsble 
was maintained in macro level code which contained two floatinsJ 
point numbers for each opcode or standard procedure bein^ 
measured (see Appendix H)* These two numbers were used to count 
the freouency of execution and number of microseconds spent 
executing each instruction* The timinss mechanism was turned on 
manually by doin^ into ODT and chanssin^ a branch instruction? 
which had been preventinsi the execution of the timinsJ routine? to 
a NOP* When the data had been collected it was output to a 
blank floppy on volume #5 by manually causing the execution of a 
SYIORQ call* Next?the Pascal programs STATS or CSPSTATS were 
used to input the data from #5 by usin^ a UNI TREAD* 

In STATS the raw test results were adjusted by the followin:^ 
factors to isolate the times for the individual instructions* 

CNTOMH - Count overhead* The time reouired for turning the 

real time clock on and off* 
COREOMH - Interpreter fetch seauence overhead* The averase 
time spent in the interpreter fetch sequence for 
non SLDCI instructions* 
SLDCIOMHD - Interpreter fetch sequence overhead for SLDCI 
instructions* 

Note? these factors sre estimates* 



APPENBIX A ~ P~m3chine Instruction EKecution Speeds 



REPORTl 



6 COMPILATIONS 



CNTO'v»i- 



4*4 COREOMHD 



14 



SLDCIOVHD 



OPCODE MHEM 


FREQ 


f\ 


"•ERC 


174 


CIP 


74795*0 




203 


158 


CSP 


32362*0 




83 


161 


FJP 


318835*9 




865 


173 


RNP 


91520*0 




248 


171 


SRO 


174375*0 




473 





SLDO-TOTAL 


467642*0 




L268 


139 


INN 


40140*0 




109 





SLDL--TOTAL 


310613*9 




842 


167 


LDO 


109881*9 




298 


206 


CLP 


16692*0 




45 


195 


EQUI 


166675*9 




452 


185 


UJP 


144070*0 




391 


188 


LDH 


44340*0 




120 


204 


STL 


90584*0 




246 


205 


CXP 


5025*0 




14 


172 


XJP 


38080*0 




103 


130 


AD I 


219366*0 




595 


156 


UNI 


19840*0 




54 


190 


LDB 


84842*0 




230 


165 


LAO 


50730*0 




138 





SIND-TOTAL 


88608*0 




240 


198 


LLA 


48589*0 




132 


243 


SLD012 


126586*9 




343 


127 


SLDC-TOTAL 


565457*0 




L533 


164 


IXA 


15363*0 




42 


234 


SLD03 


94888*0 




257 


203 


NEQI 


47859*0 




130 


179 


LDC 


15250*0 




41 


163 


IND 


29679*0 




80 


216 


SLDLl 


81766*0 




222 


244 


SLD013 


73143*0 




198 


142 


MOD 


3662*0 




10 


235 


SLD04 


62186*0 




169 


218 


SLDL3 


61331*0 




166 


217 


SLDL2 


60326*0 




164 


182 


LOD 


9334*0 




25 


200 


LEQI 


27982*0 




76 


202 


LDL 


17580*0 




48 


132 


AND 


32472*0 




88 


193 


RBP 


6103*0 




17 


160 


ADJ 


19086*0 




52 


249 


SINDl 


26416*0 




72 


219 


. SLDL4 


40801*0 




111 


199 


LDC I 


21163*0 




57 


159 


LDCN 


47142*0 




128 



MICS 


AVEHICS 


i 


iPERi 


4*7E7 


632*4 


*2158 


3 * 8E7 


1185*8 


* . 


1751 


8*0E6 


25*2 


* 


366 


6*8E6 


74*6 


4 


312 


5*5E6 


31*4 


* 


250 


5*4E6 


11*6 


* 


248 


4*6E6 


114*1 


* 


209 


3*6E6 


11*6 


* 


165 


3*6E6 


32*4 


* 


162 


3*4E6 


205*1 


« 


156 


3*4E6 


20*4 


* 


155 


3*2E6 


22*4 


♦ 


147 


3*0E6 


68*4 


* 


138 


2*8E6 


31*4 


♦ 


130 


2*4E6 


486*8 


4 


112 


2*4E6 


62*8 


* 


109 


2*1E6 


9*7 


♦ 


97 


1*8E6 


91*8 


♦ 


83 


1*8£6 


20*8 


♦ 


81 


1*6E6 


31*0 


* 


72 


1*5E6 


17*0 


* 


69 


1*5E6 


30*7 


« 


68 


1*5E6 


11*6 


* 


67 


1*4E6 


2*5 


* 


64 


1*2E6 


75*2 


* 


53 


1*1E6 


11*6 


* 


50 


1*0E6 


21*1 


* 


46 


960789*9 


63*0 


* 


44 


957337*0 


32*3 


* 


44 


949907*3 


11*6 


* 


43 


850692*6 


11*6 


* 


39 


732287*8 


200*0 


* 


33 


722506*4 


11*6 


* 


33 


713398*9 


11*6 


* 


33 


701567*4 


11*6 


* 


32 


622686*5 


66*7 


* 


28 


600088*8 


21*4 


* 


27 


593980*9 


33*8 


* 


27 


551360*7 


17*0 


* 


25 


550577*6 


90*2 


« 


25 


538684*4 


28*2 


* 


25 


518219*4 


19*6 


* 


24 


474034*9 


11*6 


* 


A. A. 


457178*7 


21*6 


* 


21 


420703*8 


8*9 


♦ 


19 



162 


XNC 


197 


GRTI 


233 


SLD02 


178 


LDA 


175 


COMPARE 


191 


STB 


248 


SINDO 


194 


CBP 


168 


HOU 


228 


SLDL13 


149 


SB I 


154 


STO 


196 


6EQI 


169 


MVB 


236 


SLD05 


242 


SLDOll 


147 


NOT 


255 


SIND7 


237 


SLri06 


170 


SAS 


134 


DMI 


250 


SIND2 


141 


I OR 


253 


SIND5 




SLDL7 


•9 c; •-> 


SIND4 


143 


HP I 


254 


SIND6 


238 


SLD07 


220 


SLDL5 


232 


SLDOl 


251 


SIND3 


241 


SLDOIO 


239 


SLD08 


201 


LESI 


221 


SLDL6 


225 


SLDLIO 


229 


SLDL14 


223 


SLDLS 


245 


SLD014 


189 


STM 


227 


SLDL12 


224 


SLDL9 


166 


LCA 


148 


SRS 


138 


FLT 


184 


STR 


240 


SLD09 


226 


SLDLll 


183 


COMPARE 


137 


FLO 


230 


SLDLIS 


186 


LDP 


135 


IiMR 


208 


SIP 



23078*0 




63 


16856*0 




46 


30956*0 




84 


6829*0 




19 


2346 ♦ 




6 


27875*0 




76 


27130*0 




74 


1085*0 




3 


3733*0 




10 


23345*0 




63 


27279*0 




74 


25135*0 




68 


12313*0 




33 


1515*0 




4 


17377*0 




47 


16266*0 




44 


22013*0 




60 


8510*0 




23 


13534*0 




37 


880*0 




2 


638*0 




2 


6283*0 




17 


11848*0 




32 


5613*0 




15 


9247*0 




25 


5356*0 




15 


1443*0 




4 


5093*0 




14 


8203*0 




A*. A» 


7810*0 




21 


7522*0 




20 


4207*0 




11 


6205*0 




17 


6138*0 




17 


2949*0 




8 


5487*0 




15 


4886*0 




13 


4576*0 




12 


3354*0 




9 


3121*0 




8 


347*0 




1 


2629*0 




7 


2545*0 




7 


1396*0 




4 


104*0 







86*0 







346*0 




1 


1516*0 




4 


1318*0 




4 


58*0 







48*0 







1165*0 




3 


158*0 







48*0 







606*0 




2 



417271*2 
388851*4 
359833*4 
348202*1 
343229*4 
312584*4 

303608*9 

278014*4 

275516*7 

271198*5 

264305*0 

261939*5 

257588*7 

203048*4 

201954*2 

188717*3 

188366*6 

166848*0 

157391*6 

135383*9 

127556*1 

123326*6 

114837*2 

109940*6 

107436*3 

104992*4 

100441*6 

99864*7 

95335*7 

90825*0 

87591*8 

82487*3 

72054*5 

71378*2 

67435*1 

63706*3 

56741*4 

53146*4 

38946 * 6 

36262*9 

32715*3 

30629*1 

29598*5 

wi8yb7 * 4 

24120*6 

22687*4 

19764*4 

17625*4 

15317*2 

14672*2 

14576*2 



35 



16* 



10818*2 
5718*2 
5387*4 



18*1 
23*1 
11*6 
51*0 

146 ♦ 3 
11*2 

11*2 

256 * 2 

73*8 

11*6 

9*7 

10*4 

20* 9 

134*0 

11*6 

11*6 

8*6 

19*6 

11*6 

153*8 

199*9 

19*6 

9*7 

19*6 

11*6 

19*6 

69*6 

19*6 

11*6 

11 *6 

11*6 

19*6 

11*6 

11*6 

22*9 

11*6 

11*6 

11*6 

11*6 

11*6 

94*3 

11*7 

11*6 

20*8 

231*9 

263 * 8 

57 * 1 

11*6 

11*6 

253 * 

303*7 

11*6 

68*5 

119* 1 

8*9 



19 
18 
16 
16 

16 
14 

14 

13 

13 

12 

12 

12 

12 

9 

9 

9 

9 

8 

7 

6 

6 

6 



4 



■^ 
o 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 






207 


CGP 


21*0 


* 





4771*9 


227 * 2 







12S 


ABI 


313*0 




1 


3633*7 


11*6 







131 


ADR 


77*0 







2863*3 


37*2 







144 


MPR 


57*0 







2595*3 


45*5 







187 


STP 


18*0 







2200*2 


122*2 







145 


NGl 


220*0 




1 


1875*0 


8*5 







133 


DIP 


18*0 







1442*2 


80*1 







231 


SLBL16 


28*0 







325*2 


11*6 







129 


ABR 


0*0 







0*0 


0*0 







136 


CHK 


0*0 







0*0 


0*0 







140 


INT 


0*0 







0*0 


0*0 







146 


NGR 


0*0 







0*0 


0*0 







150 


SBR 


0*0 







0*0 


0*0 







151 


S6S 


0*0 







0*0 


0*0 







152 


SQI 


0*0 







0*0 


0*0 







153 


SQR 


0*0 







0*0 


0*0 







155 


IXS 


0*0 







0*0 


0*0 







157 


S2P 


0*0 







0*0 


0*0 







176 


COHPARE 


0*0 







0*0 


0*0 







177 


COHPARE 


0*0 







0*0 


0*0 







180 


COHPARE 


0*0 







0*0 


0*0 







181 


COHPARE 


0*0 







0*0 


0*0 







192 


IXP 


0*0 







0*0 


0*0 







209 


IXB 


0*0 







0*0 


0*0 







210 


BYT 


0*0 







0*0 


0*0 







211 


EFJ 


0*0 







0*0 


0*0 







212 


NFJ 


0*0 







0*0 


0*0 







213 


BPT 


^0*0 







0*0 


0.0 







214 


XIT 


0*0 







0*0 


0*0 







215 


NOP 


0*0 







0*0 


0*0 







246 


SLD015 


0*0 







0*0 


0*0 







247 


SLD016 


0*0 







0*0 


0*0 








3 ♦ /E6 



2*2E8 



*8197 



REPORT 



WHETSTONE 



CiMTQMH 



4*4 COREOVHD = 14*7 SLDCIOyHD ^ 7*4 



OPCODE 


MNEH 


FREQ 


FPERC 


HICS 


AMEMICS 


HPERl 


158 


CSP 


6985*0 
111345»9 




53 


1*6E7 


2361*7 


.2058 


188 


LDM 




841 


6*1E6 


54*5 




756 


167 


LDO 


138008 > 9 




1043 


4*4E6 


32.2 




554 


164 


IXA 


60693*0 




458 


4*1E6 


67*5 




511 


189 


STH 


55392*0 




418 


3*5E6 


62*4 




431 


207 


CGP 


8990*0 




68 


2*4E6 


271*1 




304 


165 


LAO 


79184*0 




598 


2*4E6 


30*7 




303 


135 


DMR 


11400*0 




86 


2*3E6 


203*1 




289 


198 


LLA 


71920*0 




543 


2*2E6 


30*7 




276 


144 


MPR 


23199*0 




175 


2*2E6 


93.4 




270 


138 


FLT 


4897*0 




37 


1*8E6 


362*1 




221 


131 


ADR 


36890*0 




279 


1*7E6 


45*5 




209 


136 


CHK 


60383*0 




456 


1*6E6 


26*2 




197 


179 


LDC 


33674*0 




254 


1*4E6 


42*6 




179 


171 


SRO 


41378*0 




313 


1*3E6 


31*4 




162 


206 


CLP 


6727*0 




51 


1*2E6 


175*9 




148 


173 


RNP 


15718*0 




119 


1*1E6 


71,2 




140 


143 


MP I 


14700*0 




111 


983710*9 


66*9 




123 


185 


UJP 


34131*0 




258 


824235*9 


24*1 




103 


149 


SBI 


75763*0 




572 


736652*6 


9*7 




92 


161 


FJP 


36100,0 




273 


683429*0 


18*9 




85 


127 SLDC- 


-TOTAL 


256649*9 




1939 


647375*0 


2*5 




81 


SLDL- 


"TOTAL 


44174*0 




334 


511997*6 


11*6 




64 


216 


SLDLl 


42128*0 




318 


488266*1 


11*6 




61 


200 


LEQI 


22375*0 




169 


456415*5 


20*4 




57 


130 


AD I 


31964*0 




241 


310417*6 


9*7 




39 


150 


SBR 


4440*0 




34 


233199*0 


52*5 




29 


202 


LDL 


6320*0 




48 


203268*0 


32*2 




25 


205 


CXP 


149*0 




1 


109426*1 


734*4 




14 


SLDO- 


-TOTAL 


8758*0 




66 


101772*2 


11*6 




13 


201 


LESI 


4609*0 




35 


95615*1 


20,7 




12 


197 


GRTI 


4275*0 




32 


88531*5 


20*7 




11 


195 


EQUI 


4053*0 




31 


82744*7 


20*4 




10 


194 


CBP 


205*0 




2 


53403*5 


260*5 




7 


134 


DMI 


265*0 






52978*5 


199*9 




7 


204 


STL 


1294*0 




10 


40603*6 


31*4 




5 


193 


RBP 


352*0 




3 


30753*8 


87*4 




4 


SIND- 


-TOTAL 


1671*0 




13 


24594*9 


14*7 




3 


217 


SLDL2 


1690*0 




13 


19597*0 


11*6 




2 


146 


NGR 


963*0 




7 


19319*7 


20*1 




2 


236 


SLD05 


1511*0 




11 


17582*9 


1 1 * 6 




2 


237 


SLD06 


1408*0 




11 


16337*2 


11*6 




2 


178 


LDA 


319*0 




2 


16091*1 


50*4 




2 


232 


SLDOl 


1279.0 


* 


10 


14861*1 


11*6 




2 


235 


SLD04 


1255*0 


* 


9 


14574*5 


11*6 




*? 



238 


SLD07 


1080*0 




8 


12547*0 


11*6 




2 


233 


SLD02 


1001*0 




8 


11645*9 


11*6 




1 


191 


STB 


1018*0 




8 


11435*2 


11*2 




1 


182 


LOD 


191*0 




1 


11316*9 


59*3 




1 


248 


SINDO 


973*0 




7 


10880*7 


11*2 




1 


142 


MOD 


52*0 







10394*8 


199*9 




1 


190 


LDB 


483*0 




4 


10055*7 


20*8 




1 


132 


AND 


554*0 




4 


9366*6 


16*9 




1 


255 


SIND7 


432*0 




3 


8489*8 


19*7 




1 


196 


GEQI 


365*0 




3 


7800*5 


21*4 




1 


163 


IND 


223*0 




2 


7184*7 


32*2 




1 


239 


SLD08 


552*0 




4 


6415*8 


11*6 




1 


175 


COMPARE 


80*0 




1 


5871*0 


73.4 




1 


203 


NEQI 


221*0 




2 


4903*9 


22 * 2 




1 


253 


SIND5 


224*0 




2 


4398*6 


19*6 




1 


234 


SLD03 


345*0 




3 


4010*5 


11*6 




1 


229 


SLDL14 


306*0 






3553*4 


11*6 







240 


SLD09 


287*0 






3325*3 


11*6 







181 


COMPARE 


40*0 







2860*0 


71*5 







170 


SAS 


2*0 







2140*8 


1070*4 







141 


lOR 


81*0 




1 


780*9 


9*6 







162 


INC 


39*0 







704*1 


18*1 







252 


SIND4 


29*0 







571*1 


19*7 







154 


STO 


50*0 







527*0 


10*5 







166 


LCA 


24*0 







499*6 


20*8 







241 


SLDOIO 


40*0 







472*0 


11*8 







128 


ABI 


19*0 







431*1 


22*7 







139 


INN 


^*0 







350*7 


116*9 







183 


COMPARE 


1*0 







249*9 


249*9 







129 


ABR 


20*0 







194*0 


9 * 7 







186 


LDP 


3*0 







189*7 


63*2 







184 


SIR 


3*0 







152*7 


50*9 







251 


SIND3 


7*0 







137*3 


19*6 







218 


SLDL3 


10*0 







118*0 


11*8 







219 


SLDL4 


10*0 







116*0 


11*6 







220 


SLDL5 


10*0 







116*0 


11*6 







222 


SLDL7 


10*0 







116*0 


11*6 







221 


SLDL6 


10*0 







115*0 


11*5 







250 


S3:ND2 


3*0 







58*7 


19*6 







254 


SIND6 


3*0 







58*7 


19*6 




^ 


199 


LDCI 


1*0 







20*9 


20*9 







147 


NOT 


2*0 







16*8 


8*4 







133 


DIP 


0*0 







0*0 


0*0 







137 


FLO 


0*0 







0*0 


0*0 







140 


INT 


0*0 







0*0 


0*0 







145 


NGI 


0*0 







0*0 


0*0 







148 


, SRS 


0*0 







0*0 


0*0 







151 


SGS 


0*0 







0*0 


0*0 







152 


SQI 


0*0 







0*0 


0*0 







153 


SQR 


0*0 







0*0 


0*0 







155 


IXS 


0*0 







0*0 


0*0 







156 


UNI 


0*0 







0*0 


0*0 







157 


S2P 


0*0 







0*0 


0*0 







159 


LDCN 


0*0 


* 





0*0 


0*0 







160 


ADJ 


0*0 


* 





0*0 


0*0 








168 


MOV 


0*0 







169 


MUB 


0*0 







172 


XJP 


0*0 







174 


CIP 


0*0 







176 


COHPARE 


0*0 







177 


COMPAF^E 


0*0 







180 


COMPARE 


0*0 







187 


SIP 


0*0 







192 


IXP 


0*0 







208 


SIP 


0*0 







209 


IXB 


0*0 







210 


BYT 


0*0 







211 


EFJ 


0*0 







212 


NFJ 


0*0 







213 


BPT 


0*0 







214 


XIT 


0*0 







215 


NOP 


0*0 







223 


SLDL8 


0*0 







224 


SLDL9 


0*0 







225 


SLDLIO 


0*0 







226 


SLDLll 


0*0 







227 


SLDL12 


0*0 







228 


SLDL13 


0*0 







230 


SLDL15 


0*0 







231 


SLDL16 


0*0 







242 


SLDOll 


0*0 







243 


SLD012 


0*0 







244 


SLD013 


X)*0 







245 


SLD014 


0*0 







246 


SLD015 


0*0 







247 


SLD016 


0*0 







249 


SINDl 


0*0 


* 






0*0 


0*0 







0*0 


0*0 







* 


0*0 







0*0 


0*0 




. 


0*0 


0*0 







* 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0.0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 








1 ♦ oEc> 



8*0£7 



♦ 7884 



REP0RT3 



3 SORTS 



NTOUH 


== 4*4 C0F;:E0MHD == 14. 


.7 


SLDCIOMHD ^ 7*4 








OPCODE 


: HNEM 


FREQ 


FPERC 


HICS 


AVEHICS 


HPERi 


164 


IXA 


358455*9 


* 


684 


1*5E7 


41*1 


* 


826 


136 


CHK 


493869*0 


4 


943 


1*3E7 


26*4 


* 


730 


165 


LAO 


358387*9 




684 


1.2E7 


34*7 


* 


698 


199 


LDCI 


496169*9 




947 


1*1E7 


21*7 


* 


603 


161 


FJP 


272157*0 




520 


6*5E6 


23*7 


* 


362 





SLDL-TOTAL 


534440*9 




1020 


6*2E6 


11*6 


* 


348 





SLDO-TOTAL 


422487*0 




807 


4*9E6 


11*6 


* 


275 


143 


HP I 


60077*0 




115 


4*6E6 


76*4 


♦ 


257 


204 


STL 


135327*9 




258 


4*3E6 


31*4 


* 


238 


142 


HOD 


18000*0 




34 


3*6E6 


200*0 


* 


202 


201 


LESI 


142358*9 




272 


3*2E6 


22*2 


♦ 


177 


171 


SRO 


95589*0 




183 


3*1E6 


32*4 


* 


173 





SIND-TOTAL 


260455*9 




497 


2*9E6 


11*3 


♦ 


165 


243 


SINDO 


258751*9 




494 


2*9E6 


11*3 


♦ 


163 


217 


SLDL2 


231017*9 




441 


2*7E6 


11*6 


* 


151 


127 


SLDC-TOTAL 


901206*0 




1721 


2*3E6 


2*5 


* 


127 


149 


SBI 


218633*0 




417 


2*1E6 


9*7 


* 


119 


185 


UJP 


71133*0 




136 


2*0E6 


28*1 


* 


112 


158 


CSP 


218*0 







1*9E6 


8649*9 


* 


106 


200 


LEQI 


66709*0 




127 


1*4E6 


20*6 


* 


77 


236 


SLD05 


101971*9 




195 


1*2E6 


11*6 


* 


66 


130 


AD I 


117672*0 




225 


1*1E6 


9*7 


* 


64 


237 


SLD06 


98129*0 




187 


1*1£6 


11*6 


* 


64 


154 


STO 


99038*0 




189 


1*0£6 


10*4 


♦ 


58 


218 


SLDL3 


88764*0 




169 


1*0E6 


11*6 


* 


58 


219 


SLDL4 


87830*0 




168 


1*0E6 


11*6 


* 


57 


167 


LDO 


21269*0 




41 


1*0E6 


47*3 


* 


56 


234 


SLD03 


85375*0 




163 


993027*4 


11*6 


* 


56 


216 


SLDLl 


78364*0 




150 


913579*6 


11*7 


* 


51 


134 


DM I 


4472*0 




9 


894532*7 


200*0 


* 


50 


206 


CLP 


4502*0 




9 


780707*8 


173*4 


* 


44 


196 


GEQI 


32156*0 




61 


769051*4 


23*9 


* 


43 


197 


GRTI 


28978*0 




55 


666229*1 


23*0 


* 


37 


207 


CGP 


2204*0 




4 


513452*5 


233 * 


♦ 


29 


239 


SLD08 


43454*0 




83 


505301*5 


11*6 


* 


28 


173 


RNP 


6708*0 




13 


477792*1 


71*2 


* 


27 


242 


SLDOll 


39805*0 




76 


462160*4 


11*6 


* 


26 


202 


LDL 


9515*0 




18 


444890*4 


46*8 


* 


25 


221 


SLDL6 


36289*0 




69 


420515*0 


11*6 


* 


24 


205 


CXP 


87*0 







285968*2 


3287 * 


« 


16 


238 


SLD07 


15818*0 




30 


183752*2 


11*6 


* 


10 


235 


SLD04 


14451*0 




28 


167630*8 


11*6 


* 


9 


220 


SLDL5 


12156*0 




23 


140756*3 


11*6 


* 


8 


241 


SLDOIO 


11997*0 




23 


140066*3 


1^7 


* 


8 


243 


SLD012 


7868*0 




15 


91484*2 


11*6 


* 


5 



240 


SLD09 


195 


EQUI 


162 


INC 


194 


CBF' 


249 


SINDl 


193 


RBP 


182 


LOD 


175 


COMPARE 


163 


IND 


190 


LDB 


170 


SAS 




SLDOl 


173 


LDA 


203 


NEQI 


132 


AND 


252 


SIND4 


233 


SLD02 


255 


SIND7 


253 


SIND5 


198 


LLA 


251 


SIND3 


183 


COMPARE 


147 


NOT 


139 


INN 


186 


LDP 


141 


lOR 


166 


LCA 


191 


STB 


168 


MOU 


250 


SIND2 


184 


STR 


172 


XJP 


254 


SINP6 


179 


LDC 


159 


LDCN 


213 


BPT 


229 


SLDL14 


222 


SLDL7 


128 


ABI 


129 


ABR 


131 


ADR 


133 


DIP 


135 


DUR 


137 


FLO 


138 


FLT 


140 


INT 


144 


MPR 


145 


N6I 


146 


NCR 


148 


SRS 


150 


SBR 


151 


SOS 


152 


SQI 


153 


SQR 


155 


IXS 



3033*0 * 6 35003*7 11*5 ♦ 2 

1527*0 * 3 31146*3 20 * 4 ♦ 2 

1641*0 * 3 29741*9 18*1 ♦ 2 

115*0 * 28686*5 249*4 * 2 

1199*0 * 2 23607*1 19*7 ♦ 1 

207*0 * 19396*3 93*7 ♦ 1 

280*0 * 1 15490*0 55*3 * 1 

92*0 * 13729*8 149*2 ♦ 1 

271*0 * 1 8719*9 32*2 * 

405*0 * 1 8413*5 20*8 * 

30*0 ♦ 6876*0 229*2 * 

344*0 * 1 3998*6 11*6 * 

72*0 ♦ 3640*8 50*6 * 

151*0 * 3428*9 22*7 ♦ 

201*0 * 3414*9 17*0 ♦ 

146*0 * 2857*4 19*6 * 

241*0 * 2793*9 11*6 ♦ 

130,0 * 2555*0 19*7 ♦ 

99*0 * 1948*1 19*7 ♦ 

58*0 * 1782*2 30*7 ♦ 

84*0 * 1646*6 19*6 ♦ 

6*0 * 1496*4 249*4 * 

150*0 * 1283*0 8*6 * 

10*0 * 1153*0 115*3 * 

14*0 * 943*6 67*4 ♦ 

92*0 ♦ 890*8 9*7 * 

36*0 * 744*4 20*7 * 

62*0 * 696*8 11*2 * 

3*0 * 569*7 189*9 * 

28*0 * 554*2 19*8 * 

10*0 * 513*0 51*3 ♦ 

7*0 ♦ 411*3 58*8 * 

18*0 * 354*2 19*7 * 

3*0 * 281*7 93*9 * 

25*0 * 225*5 9*0 ♦ 

3*0 ♦ 223*7 74*6 ♦ 

18*0 * 211*2 11*7 * 

2*0 ♦ 22*8 11*4 * 

0*0* 0*0 0*0* 

0*0 * 0*0 0*0 * 

0*0 ♦ 0*0 0*0 * 

0*0 * 0*0 0*0 * 

0*0 * 0*0 0*0 * 

0*0* 0*0 0*0* 

0*0 * 0*0 0*0 ♦ 

0*0 ♦ 0*0 0*0 ♦ 

0*0 * 0*0 0*0 • 

0*0* 0*0 0*0* 

0*0 * 0*0 0*0 ♦ 

0*0 * 0*0 0*0 * 

0*0 * 0*0 0*0 * 

0*0 * '\ 0*0 0*0 * 

0*0 * 0*0 . 0*0 * 

0*0 * 0*0 0*0 ♦ 

0*0 ♦ 0*0 0*0 * 



156 


UNI 


0»0 







157 


S2P 


0*0 







160 


AD J 


0*0 







169 


wrii 


0*0 







174 


CIP 


0*0 







176 


COMPARE 


0*0 







177 


C0MPAF5;E 


0*0 







ISO 


COMPARE 


0*0 







181 


COMPARE 


0*0 







187 


SIP 


0*0 







18S 


LDM 


0*0 







189 


STM 


0*0 







192 


IXP 


0*0 







208 


SIP 


0*0 







209 


IXB 


0*0 







210 


BYT 


0*0 







211 


EFJ 


0*0 







212 


NFJ 


0*0 







214 


XIT 


0*0 







215 


NOP 


0*0 







223 


SLDL8 


0*0 







224 


SLriL9 


0*0 







225 


SLDLIO 


0*0 







226 


SLDLll 


0*0 







227 


SLDL12 


0*0 







228 


SLDL13 


0*0 







230 


SLDL15 


0*0 







231 


SLDL16 


#♦0 







244 


SLD013 


0*0 







245 


SLD014 


0*0 







246 


SLD015 


0*0 







247 


SLD016 


0*0 








0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0.0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 








%J* 



!E6 



1*8E8 



♦ 6840 



I-;:EP0RT4 



Xf;:EF 



CNTOMH = 4 


*A COREOMHD -^ 14 ^ 


• 7 


SLD 


OPCODE 


HNEH 


FREQ 


F'PERC 


SLBO- 


-TOTAL 


890384*9 




2372 


205 


CXP 


28095*0 




75 


161 


FJP 


339464*9 




904 


171 


8R0 


177786*0 




474 


194 


CBP 


22879*0 




61 


193 


RBP 


50976*0 




136 


158 


CSP 


36837*0 




98 


163 


IND 


125529*0 




334 


238 


SLD07 


325100*9 




866 


SIND- 


-TOTAL 


223230*0 




595 


165 


LAO 


74501*0 




198 


204 


STL 


91654*0 




244 


188 


LDM 


11313*0 


* 


30 


164 


IX A 


29677*0 


* 


79 


195 


EQUI 


121750*9 




324 


130 


AD I 


192529*0 




513 


233 


SLD02 


156852*9 




418 


185 


UJP 


' 95495*0 




254 


182 


LOD 


29962*0 




80 


162 


INC 


83702*0 




223 


197 


GRTI 


66320*0 




177 


134 


DM I 


7213*0 




19 


207 


CGP 


6614*0 




18 


127 SLDC' 


-TOTAL 


462056*0 




L231 


156 


UNI 


4000*0 




11 


248 


SINDO 


94237*0 




251 


SLDL- 


-TOTAL 


90821*0 




242 


190 


LDB 


50220*0 




134 


236 


SLD05 


88538*0 




236 


199 


LDCI 


46613*0 




124 


136 


CHK 


37999*0 




101 


235 


SLD04 


81056*0 




216 


234 


SLD03 


77936*0 




208 


173 


RNP 


11089*0 




30 


139 


INN 


7318*0 




19 


154 


STO 


79233*0 




211 


167 


LDO 


17295*0 




46 


252 


SIND4 


40431*0 




108 


206 


CLP 


4473*0 




12 


239 


SLD08 


60631*0 




162 


149 


SBI 


67276*0 




179 


253 


SIND5 


33120*0 




88 


142 


HOD 


3135*0 




8 


198 


LLA 


20037*0 




53 


237 


SLD06 


50790*0 




135 



HICS 

1*0£7 

8*4£6 

7 * V £. o 

5*6E6 

5*5E6 

4*SE6 

4*5E6 

4*0E6 

3*8£6 

»i * 6E6 

3*0E6 

2*9E6 

2*8E6 

2*6E6 

2*5E6 

1*9E6 

1 * 8E6 

1*8E6 

1 ♦ &E6 

1 ♦ •JC6 

1 ♦ 5E6 

1*4E6 

1*4E6 

1 ♦ 2E6 

1 ♦ 1E6< 

1*1 Eo 

1*1E6 

1 * 0E6 

1 ♦0E6 

1 ♦ 0E6 

991902*0 

940653*4 

904200*3 

844203*0 

839126*2 

827137*6 

821042*5 

796483*9 

794997*6 

703814*9 

653349*4 

651970*0 

626875*4 

61 3961 ♦ ■ki 

590509*9 



AMEhlCS HPERC 



11*6 


♦ 


699 


300*4 


* 


571 


23*2 


* 


533 


31*4 


♦ 


378 


241*7 


* 


374 


95*1 


* 


328 


121*4 


* 


302 


32*2 


* 


273 


11*6 


* 


255 


16*1 


* 


243 


40*9 


* 


206 


31*4 


♦ 


195 


248*6 


♦ 


190 


86*2 


4 


173 


20*4 


* 


168 


9*7 


* 


126 


11*6 


♦ 


123 


18*4 


* 


119 


52*1 


♦ 


106 


18*1 


4 


102 


22*6 


♦ 


101 


200*0 


* 


98 


204*9 


♦ 


92 


2*5 


* 


78 


283*3 


♦ 


77 


11*2 


♦ 


72 


11*6 


4 


71 


20*8 


4 


71 


11*6 


♦ 


69 


21*6 


* 


68 


26*1 


* 


67 


11*6 


* 


64 


11*6 


* 


61 


76*1 


* 


57 


114*7 


* 


57 


10*4 


* 


56 


47*5 


♦ 


56 


19*7 


* 


54 


177*7 


* 


54 


11*6 


4 


48 


9*7 


4 


44 


19*7 


♦ 


44 


200*0 


♦ 


42 


30*6 


* 


42 


11*6 


* 


40 



232 


SLDOl 


48903*0 




130 


567656*7 


11*6 




38 


249 


SINDl 


21158*0 




56 


416083*2 


19*7 




28 


2S1 


SIND3 


20556.0 




55 


404093*4 


19*7 




27 


143 


MP I 


4681*0 




12 


403428*8 


86*2 




27 


169 


HUB 


2498*0 




7 


401980*2 


160*9 




27 


181 


C0MPAF:;E 


4278*0 




11 


362915*2 


84*8 




25 


200 


LEQI 


15348*0 




41 


332615*2 


21*7 




22 


176 


COMPARE 


3333*0 




9 


312470*7 


93*8 




21 


180 


COMPAF^'E 


3333*0 




9 


310959*7 


93*3 




21 


203 


NEQI 


13277*0 




35 


296209*3 


22*3 




20 


178 


LDA 


5801*0 




15 


292961*9 


50*5 




20 


147 


NOT 


31854*0 




85 


271295*6 


8*5 




18 


225 


SLDLIO 


22623*0 




60 


262261*7 


11*6 




18 


132 


AND 


15399*0 




41 


260773*0 


16*9 




18 


191 


STB 


21128*0 




56 


237637*2 


11*2 




16 


224 


SLDL9 


16619*0 




44 


193135*1 


11*6 




13 


250 


SINr}2 


9105*0 




24 


179106*4 


19*7 




12 


216 


SLDLl 


14662*0 




39 


169988*7 


11*6 




11 


226 


SLDLll 


13598*0 




36 


157645*2 


11*6 




11 


217 


SLDL2 


13225*0 




35 


152635*5 


11*5 




10 


201 


LESI 


6034*0 




16 


129402*6 


21*4 




9 


175 


COMPARE 


672*0 




2 


123923*8 


184*4 




8 


196 


GEQI 


4886*0 




13 


103212*4 


21*1 




7 


183 


COMPARE 


694*0 




o 


92705*6 


133*6 




6 


141 


lOR 


9509*0 




25 


91888*1 


9*7 




6 


255 


SIND7 


4528*0 




12 


88988*2 


19*7 




6 


172 


XJP . 


947*0 




3 


59466*3 


62*8 




4 


229 


SLDLl 4 


465.6*0 




12 


54090*4 


11*6 




4 


218 


SLDL3 


3203*0 




9 


37203*7 


11*6 




3 


223 


SLDL8 


2088*0 




6 


24173*2 


11*6 




^7 


166 


LCA 


844*0 




•".> 


17494*6 


20*7 




1 


168 


MOM 


109*0 







14767*1 


135*5 




1 


128 


ABI 


468*0 




1 


7994*2 


17*1 




1 


184 


STR 


144*0 







7381*6 


51*3 







208 


SIP 


827*0 




2 


7350*3 


8*9 







240 


SLD09 


479*0 




1 


5544*1 


11*6 







159 


LDCN 


569*0 




';> 


5078*1 


8*9 







170 


SAS 


5*0 







2473*5 


494*7 







254 


SIND6 


95*0 







1859*5 


19*6 







':>p':> 


SLDL7 


132*0 







1534*8 


11*6 







241 


SLDOIO 


93*0 







1078*7 


11*6 







186 


LDP 


11*0 







749*9 


68*2 







179 


LDC 


2*0 







188*8 


94*4 







220 


SLDL5 


15*0 







175*5 


11*7 







202 


LDL 


2*0 







63*8 


31*9 







242 


SLDOl 1 


5*0 







57*5 


11*5 







129 


ABR 


0*0 







0*0 


0*0 







131 


ADR 


0*0 







0*0 


0*0 







133 


DIP 


0*0 







0*0 


0*0 







135 


BUR 


0*0 







0*0 


0*0 







137 


. FLO 


0*0 







0*0 


0*0 







138 


FLT 


0*0 







0*0 


0*0 







140 


INT 


0*0 







0*0 


0*0 







144 


MPR 


0*0 







0*0 


0*0 







145 


NO I 


0*0 







0*0 


0*0 








146 


NGR 


0*0 







14S 


SRS 


0*0 







150 


SBR 


0*0 







151 


SGS 


0*0 







152 


SQI 


0*0 







153 


SQR 


0*0 







155 


IXS 


0*0 







157 


S2P 


0*0 







160 


ADJ 


0*0 







174 


CIP 


0*0 







177 


COMPARE 


0*0 







187 


SIP 


0*0 







189 


STH 


0*0 







192 


IXP 


0*0 







209 


IXB 


0*0 







210 


BYT 


0*0 







211 


EFJ 


0*0 







212 


NFJ 


0*0 







213 


BPT 


0*0 







214 


XIT 


0*0 







215 


NOP 


0*0 







219 


SLDL4 


0*0 









SLDL6 


0*0 







227 


SLDL12 


0*0 







228 


SLDL13 


0*0 







230 


SLDL15 


0*0 







231 


SLDL16 


0*0 







243 


SLD012 


0*0 







244 


SLD013 


0*0 







245 


SLD014 


0*0 







246 


SLD015 


0*0 







247 


SLD016 


0*0 








0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


♦ 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


♦ 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


♦ 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


♦ 





0*0 


0*0 


♦ 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


* 





0*0 


0*0 


♦ 





0*0 


0*0 


* 






3 * 8E6 



J. ♦ vJC-O 



♦ 7508 



REPORTS 



BALANCED TREE SEARCH AND INSERTION 



CNTOMH == 4*4 COREOMHD = 14«7 SLDCIOMHD == 7*4 



OPCODE 



MNEM 



FREQ 



FPERC 



MICI 



AVEMICS MPERC 



207 
161 


173 
248 
217 
249 
218 
206 
142 
185 
201 
216 
195 
162 
197 
143 
158 
159 
171 
165 


154 
199 
130 
200 
172 
127 
237 
239 
227 
136 
250 
204 
'*21 
134 
205 
'P20 
164 
194 

251 
193 



CGP 

FJP 

SLDL-TOTAL 

SIND-TOTAL 

RNP 

SINDO 

O L. X»* Lm 4S* 

SINDl 

SLDL3 

CLP 

MOD 

UJP 

LESI 

SLDLl 

EQUI 

INC 

6RTI 

MP I 

CSP 

LDCN 

SRO 

LAO 

SLDO-TOTAL 

SLD07 

STO 

LDCI 

AD I 

LEQI 

XJP 

SLDC-TOTAL 

SLD06 

SLD08 

w Lm JL* Lm X. jc» 

CHK 
SIND2 

STL 
SLDL6 

DM I 

CXP 
SLDL5 

IXA 

CBP 
SIND4 
SIND3 

RBP 



36000*0 
149915,0 
343293*9 
267720*0 

40997*0 
198205*9 

67145*0 

103624*9 

5001*0 

5015*0 

44769*0 

40528*0 

77492*0 

41401*0 

40337*0 

26754*0 

5000 * 

578*0 

42006*0 

10372*0 

10120*0 

26395*0 

15153*0 

15103*0 

7184*0 

14763*0 

5075*0 

1380*0 

26575*0 

5209*0 

5048*0 

5010*0 

2174*0 

1680*0 

926*0 

2500*0 

85*0 

35*0 

1180*0 

163.0 

25*0 

314*0 

295*0 

62*0 



* 296 
*1233 
*2864 

* 2202 
. 337 
*1630 
*1302 

* 552 

* 852 

* 41 

* 41 

* %i6o 

* 3v^3 

* 637 

* 340 

* 220 

* 41 

5 

* 345 

* 85 

* 83 

* 217 

* 125 

* 124 

* 59 

* 121 

* 42 

* 11 

* 219 

* 43 

* 42 

* 41 

* 18 

* 14 

8 

* 21 

1 


* 10 

1 

3 
2 
1 



8* 8E6 
4 ♦ 6E6 
4 ♦ 0E6 
3 ♦ 6E6 
2*9E6 
2*2E6 
1 * 8E6 
1 * 3E6 
1*2E6 
1*1 E6 
1*0E6 
964811*0 



92: 



!0*1 



899533*7 
847226*9 
731277*3 
562622*6 
415564*0 
389415*2 
374864*3 
325628*8 
310174*9 
306375*5 
175865*7 
157885*7 
155645*5 



14; 



14*7 



103736*4 

86754*0 

67139*0 

60517*1 

58525*2 

58175*0 

■wj6/u3 * 6 

33065*0 

29064*4 

28958*0 

16987*5 

14119*5 

13673*0 

7876*7 

6459*5 

6I64C * 6 

5812*5 



245*6 




1738 


30*9 




909 


11*6 




794 


13*4 




707 


71*1 




573 


11*2 




438 


. 11*6 




361 


19*7 




260 


11*6 




236 


225.9 




222 


199*9 




197 


21*6 




190 


22*9 




182 


11*6 




177 


20.5 




167 


18*1 




144 


21*0 




111 


83*1 




82 


673*7 




77 


8*9 




74 


31*4 




64 


30.6 




61 


11*6 




60 


11*6 




35 


10*5 




31 


21*7 




31 


9*7 




28 


20.4 




20 


62.9 




17 


2.5 




13 


11.6 




12 


11*6 




12 


11.6 




11 


26*1 




11 


19*7 




6 


31*4 




6 


11.6 




6 


199*9 




3 


403*4 




3 


11.6 




3 


48*3 




*:> 


258*4 




1 


19.6 




•■■' 1 


19*7 




1 


89*4 




1 



236 


SLD05 


178 


LDA 


202 


LDL 


182 


LOD 


132 


AND 


175 


COHPARE 


163 


IND 


196 


GEQl 


233 


SLD02 


235 


SLD04 


145 


NGI 


232 


SLDOl 


234 


SLD03 


229 


SLDL14 


203 


NEQI 


190 


LDB 


149 


SBI 


191 


STB 


255 


SIND7 


253 


SIiND5 


167 


LDO 


170 


SAS 


198 


LLA 


183 


COHPARE 


147 


NOT 


168 


MOM 


141 


I OR 


186 


LDP 


240 


SLD09 


226 


SLDLll 


213 


BPT 


254 


SIND6 


242 


SLDOl 1 


243 


SLD012 


128 


ABI 


129 


ABR 


131 


ADR 


133 


DIP 


135 


DMR 


137 


PLO 


138 


PLT 


139 


INN 


140 


INT 


144 


MPR 


146 


NGR 


148 


SRS 


150 


SBR 


151 


SGS 


152 


SCU" 


153 


SQR 


155 


IXS 


156 


UNI 


157 


S2P 


160 


ADJ 


166 


LCA 



447*0 * 4 

102*0 ♦ 1 

150*0 * 1 

67*0 ♦ 1 

201*0 * 2 

21*0 ♦ 

79*0 * 1 

117*0 * 1 

170*0 ♦ 1 

134*0 * 1 

181*0 * 1 

114*0 * 1 

104*0 * 1 

101*0 * 1 

50*0 * 

53*0 ♦ 

102*0 ♦ 1 

79*0 * 1 

43*0 * 

34*0 * 

15*0 ♦ 

3*0 * 

10*0 * 

1*0 * 

23*0 * 

1*0 * 

17*0 * 

".iL ♦ ♦ 

11*0 * 

11*0 * 

1*0 * 

3*0 * 

4*0 ♦ 

1*0 * 

0*0 * 

0*0 ♦ 

0*0 * 

0*0 ♦ 

0*0 * 

0*0 * 

0*0 ♦ 

0*0 * 

0*0 * 

0*0 * 

0*0 ♦ 

0*0 ♦ 

0*0 * 

0*0 * 

0*0 * 

0*0 * 

0*0 * 

0*0 ♦ 

0*0 * 

0*0 ♦ 

0*0 ♦ 



5207*3 


11*6 




1 


5153*8 


50*5 




1 


4818*0 


32*1 




1 


4101*3 


61*2 




1 


3417*9 


17*0 




1 


3077*9 


146*6 




1 


2542*1 


32*2 







2470*3 


21*1 







1978*0 


11*6 







1557*6 


11*6 







1547*9 


8*6 







1324*6 


11*6 







1212*6 


11*7 







1174*9 


11*6 







1115*0 


22*3 







1108*7 


20*9 







989*8 


9*7 







890*1 


11*3 







846*7 


19*7 







666*6 


19*6 







482*5 


32*2 







390*7 


130*2 







308*0 


30*8 







250*9 


250*9 







192*7 


8*4 







190,9 


190*9 







165*3 


9,7 







148.8 


74*4 







129*9 


11*8 







122*9 


11*2 







89*9 


89*9 







59*7 


19*9 







45*6 


11*4 







11*9 


11,9 







0,0 


0*0 







0*0 


0,0 







0*0 


0,0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0.0 







0*0 


0*0 







0*0 


0*0 







0*0 


0.0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 








169 


HUB 


0*0 







174 


CIP 


0*0 







176 


COHPARE 


0*0 







177 


COHPARE 


0*0 







179 


LDC 


0*0 







180 


COMPARE 


0*0 







181 


COMPARE 


0*0 







184 


STR 


0*0 







187 


STP 


0*0 







188 


LDM 


0*0 







189 


SIM 


0*0 







192 


IXP 


0*0 







208 


SIP 


0*0 







209 


IXB 


0*0 







210 


BYT 


0*0 







211 


EFJ 


0*0 







212 


NFJ 


0*0 







214 


XIT 


0*0, 







215 


NOP 


0*0^ 


y . 





219 


SLDL4 


0*0 







222 


SLDL7 


0*0 







<:. jii. v^ 


SLDL8 


0*0 







224 


SLDL9 


0*0 







225 


SLDLIO 


0*0 







228 


SLDL13 


0*0 







230 


SLDL15 


0*0 







231 


SLDL16 


0*0 







241 


SLDOIO 


t>*0 







244 


SLD013 


0*0 







245 


SLD014 


0*0 







246 


SLD015 


0*0 







247 


SLD016 


0*0 








0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







O.Q 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 







0*0 


0*0 








1*2E6 



* 1 E, 



8084 



APPENDIX B - Standard F'rocedur© Execution Speeds 



REPORT 8 - (five of six) COMPILATIONS 



STANDARD PROCEDURES 



■ROC 



MNEM 



FREQ 



FPERC 



MICS 



AMEHICS MPERC 



7 


UWRITE 


4442*0 




1511 


4*4E7 


9810*5 


*8330 


6 


UREAD 


190,0 




65 


4*0E6 


20888*3 


* 


759 


& 


IDS 


5089,0 




1731 


1*9E6 


371*5 


* 


361 


9 


TRS 


6112*0 




2079 


1*4E6 


228*1 


♦ 


266 


12 


SCN 


4271*0 




1453 


599136*0 


140*3 


* 


115 


3 


MML 


3251*0 




1106 


512621*0 


157*7 


♦ 


98 


2 


NEW 


2221*0 




755 


196114*0 


88*3 


* 


37 


33 


MRK 


1573*0 


♦ 


535 


73950*0 


47*0 


* 


14 


34 


RLS 


1578*0 




537 


67367*0 


42*7 


* 


13 


35 


lOR 


412*0 




140 


13174*0 


32*0 


* 


3 


10 


TIN 


150*0 




51 


6852*0 


45*7 


♦ 


1 


37 


POT 


76*0 




26 


5309*0 


69*9 


* 


1 


36 


UBUSY 


21*0 




7 


4653*0 


221*6 


♦ 


1 


5 


XIT 


14*0 




5 


1572*0 


112*3 


* 





39 


UCLEAR 


1*0 







295*0 


295*0 


♦ 





1 


IOC 


0*0 







0*0 


0*0 


* 





4 


MMR 


0*0 







0*0 


0*0 


* 





11 


PLC 


0*0 







0*0 


0*0 


* 





13 


DRAWLINE 


0*0 







0*0 


0*0 


* 





14 


DRAWBLOCK 


.^0*0 







0*0 


0*0 


♦ 





15 




0*0 







0*0 


0*0 


* 





16 




0*0 







0*0 


0*0 


* 





17 




0*0 







0*0 


0*0 


* 





18 




0*0 







0*0 


0*0 


♦ 





19 




0*0 







0*0 


0*0 


* 





20 




0*0 







0*0 


0*0 


* 





21 




0*0 







0*0 


0*0 


* 









0*0 







0*0 


0*0 


* 





23 




0*0 







0*0 


0*0 


* 





24 


TRC 


0*0 







0*0 


0*0 


* 





25 


RND 


0*0 







0*0 


0*0 


* 





26 


SINCSP 


0*0 







0*0 


0*0 


* 





27 


COSCSP 


0*0 







0*0 


0*0 


* 





28 


LOGCSP 


0*0 







0*0 


0*0 


* 





29 


ATNCSP 


0*0 







0*0 


0*0 


« 





30 


LNCSP 


0*0 







0*0 


0*0 


* 





31 


EXPCSP 


0*0 







0*0 


0*0 


* 





32 


SQTCSP 


0*0 







0*0 


0*0 


* 





38 


UWAIT 


0*0 







0*0 


0*0 


♦ 





40 


HLT 


♦ 







0*0 


0*0 


* 





41 


HEH 


0*0 
29401*0 







0*0 
5*2E7 


0*0 


* 






REPORT 9 



WHETSTONE 



STANDARD PROCEDURES 



■ROC 



MNEM 



FREQ 



FPERC 



ma 



AMEHICS HPERC 



27 


COSCSP 


1920*0 




2777 


5*6E6 


2935*0 


,3280 


7 


UWRITE 


420*0 




607 


4*1E6 


9772*7 


,2389 


30 


LNCSP 


930 ♦O 




1345 


1 * 7E6 


1834*3 


♦ 


993 


29 


ATNCSP 


640*0 




926 


1*6E6 


2540*1 


, 


946 


31 


EXPCSP 


930*0 




1345 


1*6E6 


1678*9 


♦ 


909 


26 


SINCSP 


640*0 




926 


1*3E6 


2031*2 


* 


757 


32 


SQTCSP 


930*0 




1345 


1*1E6 


1158*1 


* 


627 


28 


LOGCSP 


40*0 




58 


90056*0 


2251*4 


, 


52 


24 


TRC 


337*0 




487 


65483*0 


194*3 


♦ 


38 


6 


LiREAD 


2*0 




3 


8632*0 


4316*0 


* 


5 


1 


IOC 


104*0 




150 


3594*0 


34*6 


♦ 


2 


36 


UBUSY 


3*0 




4 


663*0 


221*0 


* 





35 


lOR 


14*0 




20 


445*0 


31*8 


* 





39 


UCLEAR 


1.0 




1 


293*0 


293*0 


♦ 





37 


POT 


2*0 




3 


139*0 


69*5 


4 





5 


XIT 


1*0 




1 


80*0 


80*0 


* 





34 


RLS 


1*0 




1 


42*0 


42*0 


♦ 





o 


NEW 


0*0 







0*0 


0*0 


♦ 





3 


mt 


0*0 







0*0 


0*0 


* 





4 


mR 


-0*0 







0*0 


0*0 


♦ 





8. 


IDS 


0*0 







0*0 


0*0 


, 





9 


TRS 


0*0 







0*0 


0*0 


* 





10 


TIM 


0*0 







0*0 


0.0 


♦ 





11 


PLC 


0*0 







0*0 


0.0 


* 





12 


SCN 


0*0 







0*0 


0.0 


« 





13 


DRAWLINE 


0*0 







0*0 


0.0 


♦ 





14 


DRAWBLOCK 


0*0 







0*0 


0.0 


* 





15 




0*0 







0*0 


0.0 


* 





16 




0*0 







0*0 


0,0 


♦ 





17 




0*0 







0*0 


0*0 


♦ 





18 




0*0 







0*0 


0.0 


» 





19 




0*0 







0*0 


0*0 


♦ 





20 




0*0 







0*0 


0,0 


, 





21 




0*0 







0*0 


0,0 


♦ 





22 




0*0 







0*0 


0,0 


, 





23 




0*0 







0*0 


0,0 


» 





25 


RND 


0*0 







0*0 


0,0 


, 





33 


MRK 


0*0 







0*0 


0,0 


* 





38 


LIWAIT 


0*0 







0*0 


0,0 


* 





40 


HLT 


0*0 







0*0 


0,0 


* 





41 


HEH 


6*0 

6915*0 







0*0 
1 * 7E7 


0,0 


* 






REPORT 10 - SORTS 



■ROC 



HNEH 



STANDARD PROCEDURES 
FREQ FPERC HICS 



AMEMICS MPERC 



7 


U WRITE 


66*0 




2946 


2*6E6 


38801*3 


*8133 


6 


UREAD 


40*0 




1786 


579684*0 


14492*1 


*1841 


36 


UBUSY 


7*0 




313 


1556*0 


222*3 


* 


5 


35 


I OR 


46*0 




2054 


1466*0 


31*9 


♦ 


5 


3 


HUL 


10*0 




446 


1456*0 


145*6 


♦ 


5 


12 


SCN 


4*0 




179 


1237*0 


309*2 


* 


4 


1 


IOC 


30*0 




1339 


1039*0 


34*6 


* 


3 


10 


TIM 


12*0 




536 


551*0 


45*9 


♦ 


2 


5 


XIT 


4*0 




179 


488*0 


122*0 


* 


2 


2 


NEW 


2*0 




89 


177*0 


88*5 


♦ 


1 


34 


RLS 


3*0 




134 


129*0 


43*0 


♦ 





4 


MUR 


0*0 







0*0 


0*0 


* 





8 


IDS 


0*0 







0*0 


0*0 


* 





9 


TRS 


0*0 







0*0 


0*0 


* 





11 


PLC 


0*0 







0*0 


0*0 


* 





13 


DRAWLINE 


0*0 







0*0 


0*0 


♦ 





14 


DRAWBLOCK 


0*0 







0*0 


0*0 


* 





15 




0*0 







0*0 


0*0 


* 





16 




0*0 







0*0 


0*0 


* 





17 




50 ♦ 







0*0 


0*0 


4 





18 




0*0 







0*0 


0*0 


* 





19 




0*0 







0*0 


0*0 


* 





20 




0*0 







0*0 


0*0 


* 





21 




0*0 







0*0 


0*0 


♦ 









0*0 







0*0 


0*0 


* 





23 




0*0 







0*0 


0*0 


* 





24 


TRC 


0*0 







0*0 


0*0 


♦ 





25 


RND 


0*0 







0*0 


0*0 


« 





26 


SINCSP 


0*0 







0*0 


0*0 


♦ 





27 


COSCSP 


0*0 







0*0 


0*0 


* 





28 


LOGCSP 


0*0 







0*0 


0*0 


* 





29 


ATNCSP 


0*0 







0*0 


0*0 


♦■ 





30 


LNCSP 


0*0 







0*0 


0*0 


* 





31 


EXPCSP 


0*0 







0*0 


0*0 


♦ 





32 


SQTCSP 


0*0 







0*0 


0*0 


♦ 





33 


MRK 


0*0 







0*0 


0*0 


* 





37 


POT 


0*0 







0*0 


0*0 


* 





38 


UWAIT 


0*0 







0*0 


0*0 


* 





39 


UCLEAR 


0*0 







0*0 


0*0 


♦ 





40 


HLT 


0*0 







0*0 


0*0 


♦ 





41 


MEH 


0*0 







0*0 


0*0 


* 






224*0 



3* 1E6 



REF'ORT 11 



CROSS-REFERENCER 



STANDARD PROCEDURES 



'ROC 



HN EM 



FREQ 



■PERC 



HIC£ 



A'v'EHICS HPERC 



7 


IJWRITE 


53 * 




IS 


2*0E6 


37679*8 


♦ 4649 


3 


MML 


13447*0 


*4467 


1*2E6 


89*9 


.2815 


1 


IOC 


16358*0 


*s 


;435 


566195*0 


34*6 


. . 


1318 


6 


UREAD 


17*0 




6 


469270*9 


27604*2 


* . 


1092 


11 


FLC 


14.0 




5 


38399*0 


2742*8 


» 


89 


2 


NEW 


141*0 




47 


12463*0 


88*4 


♦ 


29 


35 


I OR 


60*0 




20 


1918*0 


32*0 


. 


4 


36 


UBUSY 


3*0 




1 


667 * 


222*3 


♦ 


2 


39 


UCLEAR 


1*0 







294*0 


294*0 


♦ 


1 


10 


TIM 


4*0 




1 


184*0 


46*0 


. 





5 


XIT 


1*0 







81*0 


81*0 


♦ 





34 


RLS 


1*0 







43*0 


43*0 


♦ 





4 


Mf^R 


0*0 







0*0 


0*0 


* 





8 


IDS 


0*0 







0*0 


0*0 


« 





9 


TRS 


0*0 







0*0 


0*0 


♦ 





12 


SCN 


0*0 







0*0 


0*0 


♦ 





13 


DRAWL I NE 


0*0 







0*0 


0.0 


♦ 





14 


DRAWBLOCK 


0*0 







0*0 


0*0 


« 





15 




0*0 







0*0 


0*0 


« 





16 




-0>0 







0*0 


0*0 


# 





17 




0*0 







0*0 


0*0 


♦ 





18 




0*0 







0*0 


0*0 


♦ 





19 




0*0 







0*0 


0*0 


* 





20 




0*0 







0*0 


0*0 


* 





21 




0*0 







0*0 


0*0 


♦ 





'7>0 




0*0 







0*0 


0*0 


* 





23 




0*0 







0*0 


0.0 


♦ 





24 


TRC 


0*0 







0*0 


0*0 


♦ 





25 


RND 


0*0 







0*0 


0*0 


. 





26 


SINCSP 


0*0 







0*0 


0*0 


* 





27 


COSCSP 


0*0 







0*0 


0*0 


* 





28 


L06CSP 


0*0 







0*0 


0*0 


. 





29 


ATNCSP 


0*0 







0*0 


0*0 


« 





30 


LNCSP 


0*0 







0*0 


0*0 


♦ 





31 


EXPCSP 


0*0 







0*0 


0*0 


« 





32 


SQTCSP 


0*0 







0*0 


0*0 


■» 





33 


MRK 


0*0 







0*0 


0*0 


* 





37 


POT 


0*0 







0*0 


0*0 


* 





38 


UWAIT 


0*0 







0*0 


0*0 


♦ 





40 


HLT 


0*0 







0*0 


0*0 


* 





41 


MEM 


0*0 
30100*0 







0*0 
4*3E6 


0*0 


« 






REF'ORT 12 - BALANCED TREE SEARCH AND INSERTION 



STANDARD PROCEDURES 



•ROC 



10 
5 
3 
4 
8 
9 

11 

13 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 

A— W 

26 
27 
28 
29 
30 
31 
32 
33 
34 
^6 
37 
38 
39 
40 
41 



MNEM 

UWRITE 

UREAD 

NEW 

IOC 

I OR 

TIN 

XIT 

MML 

H^R 

IDS 

TRS 

PLC 

SCN 

DRAWL I NE 

DRAWBLOCK 



FREQ 



FPERC 



TRC 

RND 

SINCSF-' 

COSCSP 

L06CSP 

ATNCSP 

LNCSP 

EXPCSP 

SQTCSP 

HRK 

RLS 

UBUSY 

POT 

UWAIT 

UCLEAF^ 

HLT 

HEM 



90*0 


.3 


;543 


2*0 




79 


51*0 


■n 


;oo8 


89*0 


.3 


;504 


17.0 




669 


4.0 




157 


1.0 




39 


0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







%♦ 







0.0 







0.0 







0.0 







0.0 







0.0 


» 





0.0 


4 





0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 







0.0 








Mies 


AVEMICS 


HPERi 


985042.9 


10944.9 


♦ 9279 


68063.0 


34031*5 




641 


4522.0 


88*7 




43 


3082*0 


34*6 




29 


547.0 


32*2 




5 


184*0 


46*0 




2 


136.0 


136.0 




1 


0.0 


0*0 







0.0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0*0 







0*0 


0*0 







0*0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0*0 







0.0 


0*0 







0.0 


0*0 







0.0 


0.0 







0*0 


0.0 







0*0 


0.0 







0.0 


0.0 







* 


0.0 







0.0 


0.0 







0.0 


0.0 







0*0 


0.0 







0.0 


0.0 







0.0 


0*0 







0.0 


0.0 







0*0 


0.0 







0.0 


0.0 







0.0 


0.0 







0.0 


0*0 







0.0 


0*0 


♦ 





0.0 


0*0 


♦ 






254*0 



1 * 1E6^ 



APPENDIX C 



Execution Speeds of Microcoded F'-mscine Instructions 



repof;:T6 - micro code times 

( ALL OF INTERP PAGE EXCEPT DLOfSRO^LLA ) 



CNTOMH 



4*4 COREOVHD 



14,3 SLDCIOyHD 



7*0 



OPCODE 

158 
164 
1 6 / 
171 

SLDO 
174 
136 
189 
198 
188 
135 
144 
165 
143 
138 
179 

SLDL 
127 SLDC 

142 
130 

SIND 
139 
195 

'*> "? *7 

173 
236 
149 
201 
207 
206 
248 
205 
216 
161 
199 
202 
190 
156 
185 
243 
134 
200 
242 
234 



MNEM 



FREQ 



FPERC 



CSP 


16959*0 


* 


43 


IXA 


162162*0 


♦ 


412 


LDO 


176259*9 


* 


448 


SRO 


169114*0 




429 


-TOTAL 


436123*9 




1108 


CIP 


25247*0 




64 


CHK 


211040*9 




536 


STM 


55505*0 




141 


LLA 


87744*0 




223 


LDM 


125024*9 




318 


DMR 


11403*0 




29 


MPR 


23206*0 




59 


LAO 


191024*9 




485 


MP I 


24391*0 




62 


FLT 


4908*0 




12 


LDC 


38609*0 




98 


-TOTAL 


149836*0 




381 


"TOTAL 


66650^*0 




1693 


ADR 


36897*0 




94 


MOD 


7230*0 




18 


AD I 


141437*9 




359 


-TOTAL 


100989*9 




256 


INN 


12046*0 




31 


EQUI 


55738*0 




142 


SLD06 


97433*0 




247 


RNP 


46464*0 




118 


SLD05 


96410*0 




245 


8BI 


110345*9 




280 


LESI 


47625*0 




121 


CGP 


8997*0 




23 


CLP 


12216*0 




31 


SINDO 


76506*0 




194 


CXP 


1744*0 




4 


SLDLl 


69548*0 




177 


FJP 


209015*9 




531 


LDC I 


154163*0 




392 


LDL 


17276*0 




44 


LDB 


28502*0 




72 


UNI 


6146*0 




16 


UJP 


98776*0 




251 


SLDO 12 


48589*0 




123 


DUI 


2710*0 




7 


LEQI 


48304*0 




123 


SLDO 11 


43353*0 




110 


SLD03 


41016*0 




104 



MICS 


AVEMICS 


f 


iPERI 


2*9E7 


1695*8 


* . 


L756 


9*8E6 


60*7 


♦ 


601 


6*4E6 


36 ♦ 


* 


388 


6*0E6 


35*2 




364 


5*1E6 


11*6 




309 


4*7E6 


188*1 




290 


4*5E6 


21*5 




277 


3*5E6 


63*2 




214 


3*0E6 


34*5 




185 


2*8E6 


22*2 




170 


2*3E6 


203*1 




141 


2*2E6 


93*4 




132 


1*8E6 


9*5 




110 


1*8E6 


72*4 




108 


1*8E6 


356*8 




107 


1*7E6 


45*1 




106 


1*7E6 


11*6 




106 


1 * 7E6 


2*5 




103 


1*7E6 


45*5 




103 


1*4E6 


200*1 




88 


1*4E6 


9*7 




84 


1*3E6 


13*3 




82 


1*3E6 


108*7 




80 


1*1E6 


20*4 




69 


1*1E6 


11*6 




69 


1*1E6 


24*1 




68 


1*1E6 


11*6 




68 


1*1E6 


9*7 




65 


1*1E6 


22*5 




65 


966098*1 


107*4 




59 


914998*8 


74*9 




56 


859406*8 


11*2 




52 


855445*1 


490*5 




52 


805559*3 


11*6 




49 


768164*7 


3*7 




47 


726917*7 


4*7 




44 


631890*8 


36*6 




39 


591251*6 


20*7 




36 


572790*8 


93*2 




35 


566054*8 


5*7 




35 


563788*7 


11*6 




34 


542046*0 


200*0 




33 


512577*1 


10*6 




31 


502165*8 


11*6 




31 


475331*8 


11*6 




29 



154 


STO 


235 


SLD04 


204 


STL 


163 


IHli 


244 


SLD013 


217 


SLDL2 


150 


SBR 


197 


GRTI 


218 


SLDL3 


193 


RBP 


182 


LOD 


249 


SINDl 


172 


XJP 


238 


SLD07 


162 


INC 


160 


ADJ 


241 


SLDOIO 


219 


SLDL4 


233 


SLD02 


191 


STB 


196 


GEQI 


159 


LDCN 


178 


LDA 


203 


NEQI 


175 


COMPARE 


228 


SLDL13 


168 


MOM 


239 


SLD08 


255 


SIND7 


194 


CBP 


250 


SI NIL? 


220 


SLDL5 


169 


MMB 


147 


NOT 


132 


AND 


252 


SIND4 


232 


SLDOl 


240 


SLD09 


253 


SINDS 


251 


SIND3 


141 


I OR 


222 


SLDL7 


170 


SAS 


254 


SINi:i6 


229 


SLDL14 


146 


NCR 


221 


SLDL6 


225 


SLDLIO 


223 


SLDL8 


148 


SRS 


227 


SLDL12 


245 


SLDOl 4 


166 


LCA 


226 


SLDLll 


224 


SLDL9 



36921.0 




94 


27603*0 




70 


34163*0 




87 


8023*0 




20 


22396*0 




57 


20744*0 




53 


4440*0 




11 


22395*0 




57 


19253*0 




49 


2318*0 




6 


2928*0 




7 


9765*0 




25 


11915*0 




30 


15924*0 




40 


8311*0 




21 


5768*0 




15 


13639*0 




35 


12962*0 




33 


12950*0 




33 


11931*0 




30 


6162*0 




16 


14210*0 




36 


2111*0 




5 


15600*0 




40 


890*0 




t* 


9729*0 




25 


1598*0 




4 


8413*0 




21 


3449*0 




9 


573*0 




1 


3113*0 




8 


5212*0 




13 


447*0 




1 


6678*0 




17 


11901*0 




30 


2579*0 




7 


3751*0 




10 


3660*0 




9 


2136*0 




5 


2130*0 




5 


4265*0 




11 


3238*0 




8 


226*0 




1 


1312*0 




3 


1857*0 




5 


966*0 




2 


1651*0 




4 


1543*0 




4 


1498*0 




4 


71*0 







1320*0 




3 


987*0 




3 


443*0 




1 


632*0 




2 


561*0 




1 



386235*2 10*5 * 24 
320140*9 11*6 * 20 
317227*9 9*3 * 19 
289053*9 36*0 * 18 
259828*8 11*6 * 16 
240578*1 11*6 * 15 
233191*9 52*5 * 14 
226315*4 10*1 ♦ 14 
223201*8 11*6 ♦ 14 
209198*4 90*2 ♦ 13 
192325*3 65*7 * 12 
191625*4 19*6 * 12 
187680*4 15*8 * 11 
184455*2 11*6 ♦ 11 
181749*2 21*9 * 11 
161751*4 28*0 * 10 
157856*7 11*6 * 10 
150435*5 11*6 ♦ 9 
150277*9 11*6 * 9 
134679*2 11*3 ♦ 8 
131946*6 21*4 ♦ 8 
126915*0 8*9 ♦ 8 
122921 * 2 
119314*0 
115757*0 
112852*6 
100992*3 

97724*9 

67680 * 7 

63574*9 

60999*9 

60447*6 

59181*1 

57314*4 

C" j' C ~7 Ct ~? 

DOuJwb * ^ 
50709*7 
43552*3 
42255*0 
41909*8 
41800*0 
41484*5 
37510*4 
33984*8 
25727*6 
21504*1 
19352*8 
19151*3 
17863*9 
17365*4 
16978*3 
15321*0 
11426*1 

9227*9 

7297*6 



D«*Z 


* 


» 


7*6 


♦ 


7 


130*1 


♦ 


7 


11*6 


* 


7 


63*2 


4 


6 


11*6 


» 


6 


19*6 


* 


4 


111*0 


* 


4 


19*6 


» 


4 


11*6 


♦ 


4 


132*4 


* 


4 


8*6 


♦ 


3 


4*8 


* 


3 


19*7 


» 


3 


11*6 


* 


3 


11*5 


♦ 


3 


19*6 


♦ 


3 


19*6 


♦ 


3 


9*7 


« 


3 


11*6 


* 


2 


150*4 


♦ 


2 


19*6 


* 




11.6 


* 


1 


20*0 


♦ 


1 


11*6 


♦ 


1 


11*6 


■» 


1 


11*6 


♦ 


1 


239*1 


♦ 


1 


11*6 


« 


1 


11*6 


* 


1 


20*8 


♦ 


1 


11*5 


♦ 





11*6 


4 






184 


SIR 


85*0 







5188*5 


61*0 







186 


LDP 


56*0 







3808*8 


68*0 







181 


COMPARE 


40*0 







3351*0 


83*8 







128 


ABI 


248*0 




1 


3070*4 


12*4 







183 


COMPARE 


13*0 







2430*9 


187*0 







208 


SIP 


202*0 




1 


1805*6 


8*9 







137 


FLO 


3*0 







1237*9 


412*6 







230 


SLDL15 


84*0 







966*2 


11*5 







187 


STP 


6*0 







700*8 


116*3 







145 


NGI 


58*0 







491*4 


8*5 







133 


DIP 


5*0 







405*5 


81*1 







129 


ABR 


20*0 







190*0 


9*5 







213 


BPT 


2*0 







159*6 


79*8 







231 


SLDL16 


4*0 







45*2 


11*3 







140 


INT 


0*0 







0*0 


0*0 







151 


SGS 


0*0 







0*0 


0*0 







152 


SQI 


0*0 







0*0 


0*0 







153 


SQR 


0*0 







0*0 


0*0 







155 


IXS 


0*0 







0*0 


0*0 







157 


S2P 


0*0 







0*0 


0*0 







176 


COMPARE 


0*0 







0*0 


0*0 







177 


COMPARE 


0*0 







0*0 


0*0 







180 


COMPARE 


0*0 







0*0 


0*0 







192 


IXP 


0*0 







0*0 


0*0 







209 


IXB 


0*0 







0*0 


0*0 







210 


BYT 


0*0 







0*0 


0*0 







211 


EFJ 


0*0 







0*0 


0*0 







212 


NFJ 


*0*0 







0*0 


0*0 







214 


XIT 


0*0 







0*0 


0*0 







215 


MOP 


0*0 







0*0 


0*0 







246 


SLD015 


0*0 







0*0 


0*0 







247 


SLD016 


0*0 







0*0 


0*0 








3 * 9E6 



1 * 6L8 



*7 



-Z.'^.A 



REP0RT7 



MACRO 
t F"OR 



CODE TIMES 
COMPARISON 



TO REF--0RT6 ~ MICRO CODE RESULTS 



CNTOMH 



4*4 COREOMHD = 14*7 SLDCIOUHD == 7*4 



OPCODE MNEM 


FREQ 


FPERC 


158 


CSP 


16966*0 


♦ 


43 


174 


CIP 


25247*0 


* 


64 


164 


IXA 


162309*0 




412 


165 


LAO 


191067*0 




485 


188 


LDM 


125024*9 




317 


167 


LDO 


176367*9 




448 


136 


CHK 


211040*9 




536 


171 


SRO 


169254*9 




430 





SLDO-TOTAL 


436732*0 




1108 


161 


FJP 


209183*0 




531 


189 


STM 


55505*0 




141 


173 


RNP 


46467*0 




118 


199 


LDCI 


154163*0 




391 


198 


LLA 


87743*0 




223 


207 


CGP 


8997*0 




23 


185 


UJP 


98837*0 




251 


135 


DMR 


11403*0 




29 


206 


CLP 


12219*0 




31 


144 


MPR 


23206*0 




59 


138 


FLT 


4908*0 




12 


143 


MP I 


24392*0 




62 


179 


LDC 


38609*0 




98 





SLDL-TOTAL 


149822*9 




380 


131 


ADR 


36897*0 




94 


127 


SLDC-TOTAL 


666739*9 




1692 


142 


MOD 


7230*0 




18 


139 


INN 


12046*0 




31 


130 


AD I 


141510*0 




359 





SIND-TOTAL 


101182*9 




257 


195 


EQUI 


55845*0 




142 


237 


SLD06 


97534*0 




248 


236 


SLD05 


96573*0 




245 


204 


STL 


34185*0 




87 


149 


SBI 


110356*9 




280 


201 


LESI 


47624*0 




121 


200 


LEQI 


48406*0 




123 


205 


CXP 


1745*0 




4 


248 


SINDO 


76596*0 




194 


216 


SLDLl 


69550*0 




177 


172 


XJP 


11915*0 




30 


202 


LDL 


17279*0 




44 


190 


LDB 


28540*0 




72 


156 


UNI 


6146*0 




16 


243 


SLD012 


48591*0 


* 


123 


134 


DMI 


2711*0 


♦ 


7 



HIC! 



A^^EMICS MPERC 



9 

Aw 


*9E7 


1 


*4E7 


8 


*6E6 


7 


*3E6 


7 


*0E6 


5 


*7E6 


5.5E6 


5 


*3E6 


5 


*1E6 


5 


*0E6 


3 


*5E6 


3 


*4E6 


3 


*3E6 


2 


♦ 7E6 


9 


*4E6 


2 


♦ 4E6 


2 


*3E6 


2 


*3E6 


9 

Am 


*2E6 


1 


*8E6 


1 


♦ 8E6 


1 


♦ 7E6 


1 


* 7E6 


1 


*7E6 


1 


*7E6 


1 


♦ 4E6 


1 


*4E6 


1 


*4E6 


1 


*3E6 


1 


*1E6 


1 


*1E6 


1 


*1E6 


1 


♦ 1E6 


1 


♦ 1E6 


1 


*1E6 


1 


*0E6 


9872 


17*5 


857994*3 


8062' 


97 * 9 


7485' 


D5*4 


6117! 


51*1 


5932; 


36*0 


572874*4 


5635: 


^1*9 


5422- 


41*9 



1696*0 


« . 


1448 


541*7 


♦ 


688 


53*1 


* 


434 


38*1 


* 


367 


56*0 


* 


352 


32*2 


* 


286 


26*1 


* 


278 


31*4 


» 


268 


11*6 


* 


255 


24*1 


♦ 


254 


62*5 


♦ 


175 


73*7 


♦ 


172 


21*6 


* 


167 


30*7 


* 


136 


270*9 


♦ 


123 


24*2 


* 


120 


203 * 1 


* 


117 


188*6 


« 


116 


93*4 


* 


109 


362*1 


♦ 


89 


72*4 


* 


89 


45*1 


♦ 


88 


11*6 


* 


87 


45*5 


* 


85 


2*5 


* 


84 


200*1 


* 


73 


114*0 


♦ 


69 


9*7 


♦ 


69 


13*3 


* 


68 


20*4 


♦ 


57 


11*6 


* 


57 


11*6 


♦ 


56 


31*4 


* 


54 


9*7 


♦ 


54 


22*5 


« 


54 


20*7 


* 


50 


565*7 


♦ 


50 


11*2 


♦ 


43 


11*6 


* 


41 


62*8 


♦ 


38 


35*4 


* 


31 


20*8 


♦ 


30 


93 * 2 


* 


29 


11*6 


« 


28 


200*0 


♦ 


27 



197 


GRTI 


22407*0 




57 


510504*2 


22*8 




26 


242 


SLDOll 


43359*0 




110 


501786*0 


11*6 




25 


234 


SLri03 


41050*0 




104 


475709*0 


11*6 




24 


154 


STO 


36935*0 




94 


386092*5 


10*5 




19 


203 


NEQI 


15605*0 




40 


330146*5 


21*2 




17 


235 


SLD04 


27750*0 




70 


321652*0 


11*6 




16 


163 


IND 


8096*0 




21 


260871*3 


32*2 




13 


244 


SLD013 


22396*0 




57 


259886*4 


11*6 




13 


217 


SLDL2 


20746*0 




53 


240604*4 


11*6 




12 


150 


SBR 


4440*0 




11 


233369*9 


52*6 




12 


218 


SLi:iL3 


19246*0 




49 


223190*4 


11*6 




11 


193 


RBP 


2325*0 




6 


208606*5 


89*7 




11 


132 


AND 


12020*0 




31 


203733*9 


16*9 




10 


182 


LOD 


2933*0 




7 


197788*7 


67*4 




10 


249 


SINDl 


9853*0 




25 


193704*7 


19*7 




10 


238 


SLri07 


15946*0 




40 


184057*3 


11*5 




9 


160 


ADJ 


5768*0 




15 


161958*2 


28*1 




8 


241 


SLDOIO 


13654*0 




35 


158534*6 


11*6 




8 


162 


INC 


8345*0 




21 


151015*4 


18*1 




8 


233 


SLrt02 


12962*0 




33 


150499*7 


11*6 




8 


219 


SLDL4 


12963*0 




33 


150276*7 


11*6 




8 


194 


CBP 


579*0 




1 


148917*1 


257*2 




7 


191 


STB 


11931*0 




30 


134391*8 


11*3 




7 


196 


6EQI 


6171*0 




16 


132308*9 


21*4 




7 


159 


LDCN 


14213*0 




36 


126919*7 


8*9 




6 


168 


HO'v' 


1587*0 




4 


117090*2 


73*8 




6 


175 


COHPARE 


912*0 




2 


116056*7 


127*3 




6 


228 


SLDL13 


9729*0 




25 


112763*0 


11*6 




6 


178 


LDA 


2123*0 




5 


107661*7 


50*7 




5 


239 


SLD08 


8531*0 




22 


99178*9 


11*6 




5 


255 


SIND7 


3450*0 




9 


67815*0 


19*7 




3 


250 


SIND2 


3114*0 




8 


61070*6 


19*6 




3 


220 


SLDL5 


5209*0 




13 


60270*1 


11*6 




3 


169 


ms 


447*0 




1 


59878*3 


134*0 




3 


147 


NOT 


6745*0 




17 


57608*5 


8*5 




3 


252 


SIND4 


2587*0 




7 


50876*3 


19*7 




3 


232 


SLDOl 


3740*0 




9 


43342*0 


11*6 




2 


240 


SLD09 


3659*0 




9 


42285*1 


11*6 




2 


253 


SINUS 


2138*0 




5 


42014*2 


19*7 




2 


251 


SIND3 


2130*0 




5 


41919*0 


19*7 






141 


I OR 


4276*0 




11 


41478*4 


9*7 




2 


170 


SAS 


228 * 




1 


38903*2 


170*6 






222 


SLDL7 


3238*0 




8 


37506*2 


11*6 




2 


254 


SIND6 


1315*0 




3 


25817*5 


19*6 




1 


229 


SLDL14 


1857*0 




5 


21504*3 


11*6 




1 


146 


NCR 


966*0 




2 


19396*4 


20*1 




1 




SLDL6 


1643*0 




4 


19053*7 


11*6 




1 


225 


SLDLIO 


1543*0 




4 


17887*7 


11*6 




1 


223 


SLDL8 


1498*0 




4 


17376*2 


11*6 




1 


148 


SRS 


71*0 







17363*9 


244*6 




1 


227 


SLriL12 


1320*0 




3 


15305*0 


11*6 




1 


245 


SLDOl 4 


987*0 




3 


11448*3 


11*6 




1 


166 


LCA 


444*0 




1 


9230*6 


20.8 







226 


SLDLll 


632*0 




Am 


7338*8 


11*6 







224 


SLDL9 


561*0 




1 


6512*9 


11*6 








184 


SIR 


85*0 


♦ 





4817*5 


56*7 







186 


LDP 


60*0 


« 





4082*0 


68*0 







183 


COMF-'ARE 


13*0 


4 





3344*7 


257*3 







128 


ABJ; 


248*0 


* 


1 


3064*2 


12*4 







181 


COMF'ARE 


40*0 


* 





2857*0 


71*4 







208 


SIP 


202*0 


* 


1 


1794*8 


8*9 







137 


FLO 


3*0 


♦ 





1251*7 


417*2 







230 


SLDLIS 


84*0 


♦ 





973*6 


11*6 







187 


STP 


6*0 


* 





729*4 


12146 







145 


NGI 


58*0 


♦ 





497*2 


8*6 







133 


DIP 


5*0 


♦ 





406*5 


81*3 







129 


ABR 


20*0 


♦ 





196*0 


9*8 







213 


BPT^ 


2*0 


* 





165*8 


82*9 







231 


SLDL16 


4*0 


♦ 





46*6 


1147 







140 


INT 


0*0 


4 





0.0 


0*0 







151 


SGS 


0*0 


♦ 





0*0 


0*0 







152 


SQI 


0*0 


* 





O4O 


0*0 







153 


SQR 


0*0 


♦ 





O4O 


0*0 







155 


IXS 


0*0 


* 





0*0 


0*0 







157 


S2P 


0*0 


* 





0*0 


0*0 







176 


COMPARE 


0*0 


* 





0*0 


0*0 







177 


COMPARE 


0*0 


♦ 





0*0 


040 







180 


COMPARE 


0*0 


♦ 





0*0 


0*0 







192 


IXP 


0*0 


* 





0*0 


0*0 







209 


IXB 


0*0 


♦ 





0*0 


040 







210 


BYT 


0*0 


* 





0*0 


0*0 







211 


EFJ 


0*0 


4 





0*0 


040 







.-J ^ . J 


NFJ 


-0*0 


4 





0*0 


0*0 







214 


XIT 


0*0 


♦ 





0*0 


040 







215 


NOP 


0>0 


* 





0*0 


0*0 







246 


SLDOIS 


0*0 


4 





0*0 


0*0 







247 


SLD016 


0*0 
3*9E6 


* 





0*0 
2*0E8 


0*0 


4 77 



39 



APF-'ENDIX D 



Pro£Sr3iY« Execution Speed; 



REPORT A - COhPILATIOHS 



ANY 11 LSI-11 

p r c) B' r 3 m 1 i n e s sees 1 i n e % / m i n sees 1 i n e s / ni i n 



TRAC*HAIN 1276 86 895 84 907 

ADJSTATS 296 36 495 35 50f- 

yHETSTONE 252 

CALC 434 40 659 39 666 

XREF 779 44 1073 43 1092 

RTllTOEDIT 304 27 687 26 689 



86 


895 


36 


495 


27 


561 


40 


659 


44 


107 


27 


687 



LSI/EIS/FIS LSI/EIS/FIS/HIC 
pros^ram lines sees lines/min sees lines/min 



TRAC 


*HAIN 


1276 


84 - 


909 


ADJS 


TATS 


296 


35 


507 


WHET 


STONE 


252 


26 


576 


CALC 




434 


39 


668 


XREF 




779 


43 


1090 



RTllTOEDIT 304 



-■•" 




51 


1495 


19 


915 


15 


980 




1184 


26 


1831 


15 


1227 



F^lEPOFH" B ■■" WHETSTONE 



WEIGHT ==10 

EXECUTION TIME IN SECONDS 



module ANY 11 LSI~11 LSI/EIS/FIS LSI/EIS/FIS/HIC 



1* SIHPLE IDENTIFIERS 

2* ARRAY ELEHENTS 3 2 1 1 

3.> ARRAY AS PARAMETER 20 16 8 6 

4* CONDITIONAL JUMPS 444 2 
5* (OMITTED) 

6* INTEGER ARITHMETIC 15 9 9 6 

7* TRIG FUNCTIONS 49 49 10 10 

8* PROCEDURE CALLS 75 74 29 16 

9. ARRAY REFERENCES 28 20 20 11 

10* INTEGER ARITHMETIC 

11* STANDARD FUNCTIONS 26 26 5 5 

220 200 86 57 



REPORT C •••• SORTS 



exe::cutj:on time in seconds 



alE^orithiT! LSI-11 LSI/EIS/FIS LSI/EIS/FIS/HIC 



QUICKSORTC recursive) 51 51 28 

QUICKSORT (non recursive) 57 57 31 

HEAPSORT 99 99 



•=•■;.< 



REPORT D - CROSS™REFEFi;ENCER AND BALANCED TREE SEARCH AND INSERTION 



EXECUTION TIHE IN SECONDS 



ro^ram LSI-il LSI/EIS/FIS LSI/EIS/FIS/HIC 



CROSS-REFERENCER 

with full listing 349 335 227 

without listin<5 - 215 146 

BALANCED TREE SEARCH 

AND INSERTION 62 62 34 



a1"*pe::nd:i:x e 



Report Generators 



progf;:ah stats? 



TYPE ENTRY = RECORD 

MICS t REALJ 
FREQ t REAL 
END 5 

UAR T I ARRAYCl* ♦132:1 OF ENTRY? 
lyj t INTEGER? 
TOTALHPC ♦* INTEGER? 
{"■REQTOTAL? HICSTGTAL X REAL? 
M t ARRAYCl* ♦1323 OF" STRINGIIllD? 

CNTOMHDyCOREOMHDySLDCIOUHDfX t REAL? 

REPORT I STRING? 

CONFIGURATION? TITLEl? TITLE2 I STRING? 

RPT t TEXT? 
OP I ARRAYC1*»1323 OF INTEGER? 

PROCEDURE INITUARIABLES? 
BEGIN 

WRITE < 'CNTOUHD 1=^ '" ) ? 
READLN ( CNTOv'HD ) ? 
WRITE< ^COREOUHD J== '' ) 9 
READLN (COREOMHD)? ^^- 
yRITECSLDCIOMHD 1= ' ) ? 
READLN < SLDC I OMHD ) ? 
WR I TE( 'OUTPUT FILE NAiME ?==•• ')? 
READLN (REPORT)? 

WRITEC 'TITLEl J= ')? 

READLN (TITLED ? 

WRITE ( n"ITLE2 1= ^)? 

READLN (TITLE2) ? 

WRITE( 'CONFIGURATION 5= ')? 

READLN (CONFIGURATION) ? 

END? 



PROCEDURE XCHG? 

MAR TH : STRINGi:i03? 

TOP t INTEGER? 

TENTRY t ENTRY? 

BEGIN 

TH J== MCJD? 
TOP J== OPCJII? 
TENTRY 1= TCJ3? 

MtJii j== hcj-m:j? 



OFLJl t^ 0F'L:jll3y 
Mr.J-fJ.3 l== TM? 

END? 

PROCEDURE PRINT? 
MAR I i INTEGER? 

FPC? MPC : INTEGER? 

AHIw * REAL? 

BEGIN 

RE WR I TE ( RPT ? REPORT ) ? 

WRITELN < RPT ? TITLEl ) ? 

WRITELN(RPTyTITLE2> ? 

yRITELN(RPT) ? 

WR I TELN< RPT? CONFIGURATION)? ^ 

WRITELN(RPT) ? 

WRITECRPT? 'CNTOMH = '?CNTOUHD?' COREOMHD ■^'- '• yCOREOMHD) ? 

WRITELN(RPT? ' SLDCIOMHD ~ '?SLDCIOMHD)? 

WRITELN (RPT)? 

WRITELN (RPT)? 

WRITE ( RPT ? " OPCODE HNEM FREQ FPERC ' ) ? 

WRITELN(RPT? ' HICS AMEMICS MPERO? 

WRITELN (RPT)? ""^ 

FOR I J== 1 TO 132 DO 
BEGIN 

FPC t=^ ROUND((TCID*FREQ/FREaTOTAL) >K 10000)? 
MPC ^== R0UND((Ti:i3*HICS/HICST0TAL) t 10000)? 
TOTALHPC l==: TOTALMPC -f HPC? 

IF TCI 3* FREQ ^ THEN 
AMIC l-^ 

tZm Lw \«} iH* 

AH I C t ~" T i: 1 3 ♦ M I CS/T C I J * FREQ ? 

WRITE(RPT?0PL'I3 t 6?hi:i:i •? 11? TCI 3* FREQ I 11 ** 1 ? •' *'?FPC t 4) 
WRITELN(RPT?TCI3*MICS I 13 t 1?AMIC t 11 I 1?" ♦ ' ? MPC t 4)? 



END 



WRITELN(RPT)? 

WRITE(RPT? ••■ '-yFREQTOTAL ? 9 ? 1)? 

WRITELN(RPT?'' '?HICSTOTAL t 13 I 1?' ♦'?TOTALMPC t 4) t 

END? 

PROCEDURE INITMl? 

BEGIN 

MCI 3 t--~- 'SLDC-TOTAL' ? 

MC23 S= 'ABI'? 

MC33 1= 'ABR'? 



HC43 \ 


; ~ 


'ADI'? 


hV51 1 


: =s 


'ADR'" ? 


MC6:i t 


: sr 


•' AND '■ ? 


hT73 3 


; = 


'DIP' ? 


HC8:i t 


; == 


'DVI'- y 


hL91 5 


: ss 


'DMR'y 


'Mlio:i 


♦ 

* — * 


'CHK'? 


HCli:! 


* _ 


' FLO ' y 


nL'123 




'F"LT'? 


Hi:i33 




'INN'y 


MC14"J 


* — 


"INT'y 


hi: 15:1 




'lOR'? 


H!:i63 


■> 

* — 


•'HDD' V 


MLi73 


+ — 


'MF'I'? 


HC183 


* — 
t •" 


'HPR'? 


Hi:i93 


♦ — • 


'NGI'y 


HC203 


* — 
4 ~ 


'NGR'? 


MC2i:i 


♦ — • 


'NOT'? 


MC223 




'SRS'? 


MC233 


♦ — 


'SBI'y 


ML2A1 




'SBR'y 


MC253 


* ~ 


'SGS'y 


HC26:i 


* — 

♦ — 


'SQI'y 


MC27:( 


4 __ 
♦ — 


'SQR'y 


HC2S3 


* — • 


•'STO'? 


H€29-Ji 


•> — 


'IXS'y 


HC303 


* .... 


'UNI'? 


HL"313 




'S2P' y 


HC323 


* — 

* — 


'CSF"? 


hi:33:j 


* — • 


'LDCN'5 


Hi:343 


•f __ 
^ — • 


'ADJ'? 


HC35:i 


•> ™ 


'FJF"? 


HC363 




■'IHC'9 


HC37:i 


* _ 

# — 


'IND'p 


HC383 


■J — . 
* -- 


'IXA'y 


ML 39 3 




'LAO'y 


Hi::403 


4 -" 


'LCA'? 


Mi:41-1 




'LDO'? 


MC42:3 


♦ — 


'MOM'y 


HC43J 


4 — 


'HUB'? 


HL443 




'SAS'? 


MC453 


4 _. 
♦ — 


'SRG'y 


MC463 


4 ~ 
4 ~ 


'XJP'y 


hT47j 


4 __ 

4 ~ 


'RNP'y 


HC483 


4 — 
4 ~' 


'CIP'? 


HC493 


4 _ 
4 ~ 


'COHPARE 



:nd? 



PROCEDURE INITH2y 

BEGIN 

MC503 J= 'COMPARE'? 
hZSXl 1= 'COMPARE'? 



H!:S23 

hi: 53:) 

Hi: 54 3 

Hi:55:] 

Hi: 56 3 
HC573 
Hi:583 
HC59-1 
H 1:603 

Hr6i:i 

HC623 
H!:633 
HC643 
Hi:653 
HC66:} 
HC67:i 

Hi::6S3 
Mi:69:! 
Ml7o:i 

HC7i3 

Hi: 72:1 

Hi: 733 
HC743 
Hi: 75 3 
HC763 
HC773 
HC783 
H 1:79 3 
HCSCO 

Hr.ei3 

HC823 
Hi: 83 3 
HC843 
Hi:8S3 
HC863 
H 1:87 3 
HL883 
Hi: 89 3 
H 1:90 3 
Hi:913 
HC923 
H 1:93 3 
Hi:943 
Hi:953 
MC963 
Hi:973 
Hi:983 
HC993 



"LDA" y 

''COHPARE^ ? 
"COHF'AFiJE' ? 
•'LOD^ ? 
'COHPAF^E'y 
•'STR' ? 
■'UJP'? 
'LDP'? 
•'STP'? 
'LDH'? 
•'STH'.5 
'•LDB^ 5 
"STB'P 
'IXP'"5 
'RBP'y 
'CBP'? 
'EQUI'y 
'GECH'? 
'6RTI' y 
"LLA"? 
'LDCI'y 
'LEQI' ? 
'LESI'? 
'LDL' ? 
'NECa-'? 
'STL'? 
••■ CXP ' y 
'CLP' ? 
' COP ' y 
'SIP'? 
'IXB'y 
'BYT' ? 
' EF J ' y 
'NFJ' y 
JbP I y 
'XIT' y 
'NOP' ? 
'SLDLl'y 
'SLDL2'y 
'SLDL3' y 
'SLDL4'y 
'SLBLS'y 
'SLDL6'y 
'SLDL7'y 
'SLDLS'y 
'SLHL9'y 
'SLDLlO'y 



END? 



PROCEDURE INITH3y 
BEGIM 



MtlOO^ 


♦ _ 


"SL_DLll"y 


Mi::i.oi:i 


4 — 


•'SLi:iL12-? 


MCI 02:1 


+ _ 


•'SLDL13'7 


Hill 03 :i 


* — 

* - 


'•SLi:iL14'? 


ml: 1043 


♦ ~ 


'SL-DL15" ? 


MCiosn 


* — 


"SLDL16"y 


Mi:i06:i 


* — 


"SLDOi"? 


m.l073 




'•SL-D02''3 


MCiOBIl 




"SL.D03"? 


MCi09:i 


•> _. 

♦ — 


"SLD04'.» 


hi: 110:1 


* — 


"SLDOS'y 


MCiiin 


♦ — 


'•SLD06"? 


Ml 1123 


i ~- 


- 'SLDO?"? 


MCii3.1 


4 ~ 
* - 


: "SLDOS'y 


Hi:il43 


4 — 


= 'SLD09"? 


HC1153 


•» — 

4 — 


"SLDOIO"? 


MC1163 


4 _ 
* - 


"SLDOll"? 


MC117:i 


4 _. 
i — 


• "SLD012''? 


HC1183 


4 — . 


'•SL.0013'p 


Mi:ii9:i 


4 .... 
4 -^ 


"SLD014'? 


Mi:i203 


4 _. 
4 — 


"SLD015"y 


HC1213 


4 _. 
4 ~ 


"SLDOld'y 


ML'1223 


4 _. 
4 - 


: "SINDO"? 


H CI 23:1 


4 ™ 
4 — 


■- "SINDl'y 


Mr. 1243 


4 — 
4 ~ 


• 'SIND2''y 


Mi:i253 


4 «. 
4 ~ 


: "SIND3"? 


MC1263 


4 „. 
4 ~ 


: '311^04 '.5 


ml: 1273 


4 ~ 


: 'SIND5"y 


nC1283 


4 _ 
4 ~ 


= 'SIND6'v 


Mi: 1293 


4 — 


• 'SIND7"y 


ml: 1303 


4 ... 
« — 


= "SLDL"TOTAL„'y 


ML 131 3 


4 „ 
4 ~ 


■SLDO-TOTAL"? 


ml: 132 3 


4 ... 


•'SIND--TOTAL'i) 



:nd 



BEGIN 

WRITE ("INPUT WHAT BLOCK NUMBER? 
READLNd)? 

UN I TREAD ( 5 y T y 1 032 y I ? ) ? 

IF lORESUL-T <> THEN 
BEGIN 

WRITELN("IO ERROR - F"ATAL" ) ? 

EXIT (STATS) 
END? 

INITMARIAEU_ESy 

TOTALMF'C ? =••= 0? 
FREQTOTAL ^=0? 
MICSTOTAL- 1=== 0? 



■ } 9 



FOR I J= 1 TO 129 DO 

Ti:i:i*MiC8 j== tliiuhics •••• (ti:i3*freq ^ cntomhio? 

FOR I J=^ 1 TO 129 DO 
BEGIN 

FREQTOTAL 1= FREQTOTAL -J- TLI3*FREQ? 

HICSTOTAL 1= MICSTOTAL + TCIIUMICS 
END? 



FOR I 1= 2 TO 129 DO 

TCI3*h*ICS J= TCIiJ^MXCS - <TCI3»FREQ ^ COREOVHD) ? 

TCIIUHICS t= TC13.HICS - (TCl^^FREQ >i^: SLDCIOMHD)? 

FOR 1 l^ 130 TO 132 DO 
BEGIN 

TCI3*FREQ 1== Oj 

TCI^^MICS 1= Oy 
END? 

FOR I J= 90 TO 105 DO 
BEGIN 

Tr:i303*FR£Q t^ TClSOll *FREQ r TCI3*FREa? 

Ti::i30J + HICS 1= T[;i30:!*HICS -f TCI3*MICS 
END? 



FOR I t=-= 106 TO 121 DO 
BEGIN 

Ti:i3i3*FREQ J= TC13i:j*FREQ -h TCI^ + FREQ? 

Ti:i3i:KHics I- Ti:i3i:uHics -f tci3*mics? 

END? 

FOR I t^ 122 TO 129 DO 
BEGIN 

TC1323*FREa J== Ti:i32:i *FREQ -\- Ti:i3*FREQ? 

Ti:i323*HICS 1"-=^ Ti:i323*MICS f TCID^MICS? 
END? 

INITMl? 
INITH2? 
INITH3? 

FOR I l== 1 TO 129 DO OPCi:! 1^== I -f 126? 

FOR I 1=:: 130 TO 132 DO 0PCI3 t^ 0? 



WRITELN? 

WRITELN< ' ♦ * * ♦ ♦SORTING' ) ? 

WRITELN? 



FOR I :== 1 TO 131 DO 

fof;: j t---- i to i32 - i do 

IF" TCJ3«MICS < TCJfllUHICS THEN XCHG? 
PRINT y 
CLOSE (RPT» LOCK) » 



IND* 



PROGF'AH CSPSTATS? 

TYPE ENTFv'Y =•-• RECOFU;i 

HICS I REAL? 
FREQ t REAL 
END? 

'v'AR T t ARRAYCl* *41:J OF- ENTRY? 
I? J t INTEGER? 

FREQTOTAL? HICSTOTAL t REAL? 
H t ARRAYC1**413 OF STRINGCli;] 
OP t ARRAY!::i* .4i:i OF INTEGER? 
RPTNAME I STRING? 
REPT I TEXT? 



PROCEDURE XCHG? 

UAR TM I STRING!: 103? 

TOP t INTEGER? 

TENTRY t ENTRY? 

BEGIN 

TH t--^ H!::j3? 
TOP 1= opi:j3? 
TENTRY t^ TCJ3? 

MCJj t-^ HCJ-hl3? 
OPCJa t~^ OPr.J+13? 
Ti:J3 ?-"== TCJ-M3? 

HCJ+il! 1= TH? 
OPCJ-flD X-^"~ TOP? 
Ti:;j-M3 1==^ TENTRY? 

END? 

PROCEDURE PRINT? 
UAR I J INTEGER? 

FPC? HPC t INTEGER? 

AHIC t REAL? 

BEGIN 

iAfRITELN<REPT)? 

WRITELN<REPT? ' STANDARD PROCEDURES' ) ? 

WRITELN<REPT)? 
WRITE ( REPT ? •' PROC MNEH FREQ FPERC ) ? 

WRITELN<REPT? ' HICS AVEHICS HPERC')? 



WRITELNCREPT) 



FOR I J== 1 TO 41 DO 
BEGIN 

IF (FREQTOTAL == 0) OR (MICSTOTAL ^- 0) THEN 
BEGIN 



WRITELNCA TOTAL IS Z£f<0')y 

EXIT<CSP8TATS).5 
END J 
FPC J= R0UND(<TCI:3*FF;'EQ/FB:EQT0TAL) * lOOOO? 
MPC J= R0UND(<TCI3»MICS/MIl:ST0TAL) t 10000)? 

IF TCIiJ^FREQ = THEN 

AMIC ?== 
ELSE 

AMIC l=--^- TCi::i»MICS/Ti:i3*FREQ? 

WRITE(REPTyOPCI3 t 6? MCI 3 t llyTCI3*FREQ I 11 I 1?' *-'»FPC 14)? 

WRITELN(REPT?T[:i3.MICS I 13 t 1?AMIC t 11 t 1?' .'"vMRC I A)? 
END? 

WRITELN(REPT)? 

WRITE(R£PT?' 'yFREQTOTAL ? 9 I 1)? 

WRITELN(REPT?' '?MICSTOTAL t 13 I 1)? 
END? 

PROCEDURE INITMl? 

BEGIN 

FOR I ?== 1 TO 41 DO MCI 3 1= ' 'y 



MCI 3 t 


: =: 


'IOC ? 


m.22 t 


: = 


•' NEy ' ? 


MC33 i 


I ~ 


'MML'? 


MC43 i 


'. - 


'HMR'? 


MCSn i 


I =5 


'KIT' ? 


MC6:i 1 


>~ 


'UREAD' ? 


MC73 \ 


I == 


'UWRITE'? 


hiBl i 


I =s 


-IDS'? 


MC93 ^ 


; = 


'TRS'? 


MC103 


4 _.. 
4 — 


'TIM'? 


MC113 


♦ -- 


'FLC? 


MC123 




'SCN'? 


MC133 


* — 


'DRAWLINE'? 


MC143 




'DRAUBLOCK'? 


MC243 


* _. 
4 — 


' TRC ' ? 


MC253 


* — 
4 — 


'RND'? 


MC26:i 


^ — 


'SINCSP'? 


HC273 




'COSCSP'? 


MC28:} 


* 

♦ — 


'LOGCSP'? 


MC293 


* ... 

♦ — 


'ATNCSP'? 


MC30:i 


* _ 

* ~ 


'LNCSP'? 


MC313 


i — 


'EXPCSP'? 


MC323 


* — 


'SQTCSP'? 


MC333 


♦ — 


'MRK'? 


MC343 


♦ — 


'RLS'? 


MC35a 


* — 


'lOR'? 


MC363 


4 _. 


'UBUSY'? 


MC37:i 


* — 
+ — 


'POT'? 



ML'38D J= 'UWAIT'? 

MC393 1= 'UCLEAR'? 

MC403 t^r. 'HLT'? 

MC413 t^ 'MEN"? 
EHBy 



BEGIN 

yRITEC INPUT WHAT BLOCK NUHBER? >')? 
READLN<I)y 

UNI TREAD < 5 ? T y 500 ? I » ) J 

IF lORESULT <> THEN 
BEGIN 

WRITELNC lORESULT = 'y lORESULT) ? 

EXIT(CSPSTATS)5 
END? 

FREQTOTAL t= Of 
MICSTOTAL ?= 0? 



FOR I 1= 1 TO 41 DO 
BEGIN 

FREQTOTAL t=^ FREQTOTAL -f Ti:i3*f"REQ? 
MICSTOTAL 1== HICSTOTAL -f TCI3*HICS 
ENDy 

FOR I J == 1 TO 41 DO 0Pi:i3 1= 15 

INITMly 

WRITELNy 

WRITELN( '* * * » * SORTING' ) y 

WRITELNy 

FOR I J= 1 TO 41 DO 

FOR J 1= 1 TO 41 - I DO 

IF TCJ3«MICS < TCJ-hl^^MICS THEN XCHGy 
WRITECOUTPUT FILE NAME J= ')y 
READLN(RPTNAME)y 
REWRI TE ( REPT y RPTNAME ) y 
PRINT y 
CLOSE ( REPT y LOCK )y 



END 



APPENDIX F" - Pascal Test Pros rams 



<:^yHETSTON£ BENCHMAF<K - •••• DIRECT TRANSLITEF:;ATI0N FROH^ 

"A SYNTHETIC BENCKMARK" BY H» J» CURNOW I B* A* WICHHAHN 
'THE COHPUTER JOURNAL' VOL 19 v NO* *) 

( ;{c t r s n s lite t- 3 1 i o n d o n e b y R o sS e r f •' e t- e r s o n ? 
I / mo d i f :i. c 3 1 i o r'l s d o fi e by 6 o r^ d o n S rn i t 'n i< ) 



(>lci|>G-?-JK) it TURN ON 'GOTO' — SORRY ABOUT THAT!! M) 

PROGRAM WHETSTONE 5 

CONST T==0, 499975? 
Tl-O. 50025 y 
T2=2*0? 

TYPE ARGARRAY ■■^- ARRAYCi*.43 OF REAL? 

MAR El t ARRAYCl* *4:3 OF REAL? 
X?Y>ZyXl?X2jX3yX4 I REAL? 

MODULE y I ? J y K y L y Nl y N2 ? N3 ? N4 y N5 y N6 ? N? y NB ? N9 ? NIO y Nl 1 J INTEGER y* 
HTpLTlyLT2?TTyWKT i INTEGER? i^ TIMING VARIABLES t) 

PROCEDURE PA (MAR El ARGARRAY)? 

LABEL 1? 

MAR J I INTEGER y 

BEGIN 

JI==Oy 

It 

Ei:i:U=^(ELl3-fEC23-f£L3j--Ei:43)^T? 

Ei:2;u==(Ei;:i:i-fEi:23"-Ei:3j-fEi:4j)*T? 
Ei:3:it=::(Ei::i:i-£i:2:i-fEi::3:i+E[:43))KTy 
e[:4:jj=:<"E!;;i3+ei:23+el3:j-iei::43>/t2? 

JI==J-fly 
IF J<6 THEN 
GOTO 1 
END? i'M PROCEDURE PA^) 

PROCEDURE PC? 

BEGIN 

ElCJ3l==ElCK:iy 

Eii;:K:]i==Eii:L:]y 
eicl:ii=eii:j3 

END? it PROCEDURE PC t) 

PROCEDURE P3 ( X ? Y I REAL ? MAR It REAL ) ? 

BEGIN 

XS~T>i<(X-}Y)y 
YI==T^(X+Y)y 



ZI = <X-fY)/T2 
ENDy (t PROCEDURE P3 J^) 

PROCEDURE HODULEl? i^ HODULE 1 ♦* SIMPLE IDENTIFIERS >K) 

BEGIN 

X J. ♦ ~ 1 * y 

X2I==-— l*Oy X3J=-:l. *0y X4J=~l*0y 

FOR I?=--l TO Ml DO 
BEGIN 

Xlt---i XI -}-X2-i-X3-"X4 ) >KT y 

X2 J ~ ( X 1 f X2--X3iX4 ) ^T ? 

X 3 1 ™ (XI- X 2 -}■ X 3 '\- X 4 ) >K T y 

X4 J = < -XI •{•X2-f X3-f X4 ) >KT 
END? 

END? OK MODULE 1 t) 

PROCEDURE H0DULE2y <* MODULE 2 J ARRAY ELEMENTS *) 

BEGIN 

Eir.i:il==l«Oy 

E:i.i:2:j|=-l*0y ElL3J|--=:-l»0y El 1:43 ^ ==-:U ? 

FOR IJ=1 TO N2 DO 
BEGIN 

EiC13?::=(El!:i3-}-Ein2.1-}-ElL'33-ElL43).^Ty 
ElC23J==(Eli::3.3fElC23~ElK3-l+Eli::4:i)^Ty 

Eii::3:ii::-(Eii::i:!-Eii:23iEi!:3D-fEii:43)^Ty 

Eli;:4:!l = (-El[:i3-{-Eii:23-fElC33-fElC43)>KT 
END? 
ENDy OK MODULE 2 t) 

PROCEDURE M0DULE4? (t MODULE 4? CONDITIONAL JUMPS t) 

BEGIN 

Jl-::=ly 

FOR It-^^l TO N4 DO 
BEGIN 

IF J==l THEN 

J t -2 
ELSE 

Jl=:=3y 
IF J>1 THEN 

ELSE 

JJ=--:iy 
IF J<1 THEN 

J 1=1 

J t -~^o 

ENDy 
ENDy OK MODULE 4 ^) 



PROCEDURE M0DULE6? OK INTEGEF< ARITHMETIC ^) 
BEGIN 

FOR 11= 1 TO H6 no 
BEGIN 

JJ"J^<I\™J)JK(L-K) ? 

LI=:-(L-K)>KKiJ? 
ElC;L-13**=JiK-}-Ly 

Ei[;K-i:n=^j^<K*L 

END? 
END? (>K HODLILE 6 *) 

PROCEDURE MODULE?? OK HODULE 71 TRIO FUNCTIONS )K) 

BEGIN 

Xt==0,5? YJ=0»5y 
FOR 1^=1 TO H7 DO 
BEGIN 

X t =T>KATAN ( 12tS I N ( X ) *COS < X ) / ( COS ( Xf Y ) -f COS < X-Y ) ~i ♦ ) ) 5 
Y t =T)KATAN ( T2:i'SIN ( Y ) JKCOS ( Y ) / ( COS < X-IY ) -hCOS ( X-Y ) -1 * ) ) 
END ? 
EHDt> <* MODULE 7 t) 

PROCEDURE MODULES? C^ MODULE 81 PROCEDURE CALLS t) 

BEGIN 

X * = 1 * ? Y I - 1 ♦ ? Z J =1 ♦ ? 

FOR 11=1 TO NO DO 
P3 C X » Y ? I. ) 
END? (.t MODULE 8 *) 

PROCEDURE M0DULE105 (* MODULE lOt INTEGER ARTIHMETIC ^) 

BEGIN 
J? =2? 
K t =3 ? 
FOR IJ=1 TO NIO DO 

BEGIN 

JI=JiK:? 

K?=JfK? 

J$=K™Jy 

KI=K~vJ~J 
END? 
END? it MODULE 10 ^) 

PROCEDURE MODULEll? (* MODULE Hi STANDARD FUNCTIONS *) 

BEGIN 

Xt=0,75? 



FOR lt-1 TO Nil DO 

X t =SQRT < EXP ( LN ( X ) /Tl ) ) y 
END? (>}( HODULE 11 >K) 

PROCEDURE POUT ( MAR H y J y K i INTEGER y MAR XI y X2 y X3 y X4 I REAL ) ? 

BEGIN 

T3:HE(HTyLT2) ? 

WRI TE ( '■ MODULE •- y MODULE I 2 y N J 5 y J ? 5 ? K ? 5 ) y 

WRITELN ( XI n.2 :J 3 y X2 112 1 3 y X3 n.2 1 3 ? X4 J 12 1 3 ) y 

WKT t= ((LT2 " LTD + 30) DIM 60? 

TT l== TT i WKTy 

WRiTELN(WKT? ^ SECS')y 

TIME (HTy LTD y 
ENDy <•* PROCEDURE POUT .HO 

BEGIN C^ START WHETSTONE *> 

OK READ VALUE OF ly CONTROLLING TOTAL WEIGHT! IF I=10y 

THE TOTAL WEIGHT IS ONE MILLION WHETSTONE INSTRUCTIONS t>y 

WRITELNy 

WRITE < ''WEIGHTING FACTOR I = •' ) y READLNd)? 

WRITELNy 

ND==Oy 

N2**=12^^'<Iy 

N3l=14^'Iy 

N4J=345>KIy 

N5l=::0y 

N6J==210^I? 

N7l=32*Iy 

N8l=899^Iy 

N9^=616:^Iy 

N10t=0y 

NlD=--93*Iy 

TTJ= Oy 

TIME (HTy LTD? 

<* MODULAR PROGRAMMING IS USED TO REDUCE THE LENGTH OF MAIN CODE )K) 

MGDULEly CM SIMPLE IDENTIFIERS *) 

MGDULE^™ly 

POUT ( Nl y Nl y Nl y XI y X2 y X3 y X4 ) y 

M0DULE2y it ARRAY ELEMENTS t) 

MODULE? ==2 y 

P0UT(N2yN3yN2yEli:i3yEl{:23yElC3:iy£lC4j)y 

<:=K MODULE 3t ARRAY AS A PARAMETER :*) 

FOR IJ= 1 TO N3 DO 

PA (ED 5 



MODULE I -3 5 

POUT ( N3 y N2 ir N2 y El C 1 :i y £1 C2:i ? El C33 y El l4 J ) y 

(t END OF HODULE 3 ^) 

M0DULE4y (* CONDITIONAL JUMPS ^) 

HODULE I ••==4 5 

POUT ( N4 ? J y J ? X 1 ? X2 ? X3 ? X4 ) ? 

WRITELN< 'HODULE 5 OMITTED •' ) ? 
nODULE6 5 it INTEGEFi; AFaTHMETIC ?K) 
MODULE I =6? 
P0UT(N6yJyKyElCiayElC23?£lL:3::iyEli:43) y 

MODULE75 (>K TF;:IG FUNCTIONS JK) 

MODULE J =7? 

POUT ( N7 y J y K y X y X y Y y Y ) y 

MODULES y (>K PROCEDURE CALLS ^) 
MODULE I =8 y 
P0UT(N8yJyKyX?YyZyZ)y 

<>K HODULE 91 ARRAY REFERENCES t) 

Jl —1 y 

Kl=^2y 

I ♦ _.-jr * 
u ♦ — » J y 

Eii:i:i?=i*Oy 

E1C2:K=::2*0? 
E1C!3II *~3* O'y 

FOR 1^=1 TO N9 DO POy 

MODULE I =9? 

P0UT(N9y JyKyEli:i:i?Eli:23?ElC33yElC4J) y 

MODULEIO? (* INTEGER ARITHMETIC JK) 

M0DULEI===10y 

P OUT ( N 1 y J y K y XI y X2 y X3 y X4 ) y 

MODULE! ly it STANDARD FUNCTIONS *) 

MODULE ?==•• 11 y 

POUT ( Nl 1 y J y K y X y X y X y X ) y 

WRI TELN ( TT y - TOTAL SECS ' ) y 
URITELNCEND OF WHETSTONE') 
END* <^ END WHETSTONE t) 



PROGRAM BTSIy (>K BALANCED TREE SEARCH AND INSERTION t) 

TYPE 

BALANCE =:= -l* .1? 
REF =••: -^NODE? 
NODE ~ RECORD 

KEYyCOUNT t INTEGER? 
BAL t BALANCE? 
LEFT? RIGHT I REF 
END? 

'v'AR 

HT?LT1?LT2 t INTEGER? 

I?J?X t INTEGER? 

P I REF? 

H I BOOLEAN? 

PROCEDURE SEARCHCXI INTEGERyVAR PI REF?MAR HI BOOLEAN)? 

MAR P1?P2? REF? 

BEGIN 

IF P = NIL THEN 
BEGIN 
NEW(P)? 
H J== TRUE? 
WITH P'"^ DO 
BEGIN 

KEY 1= X? 
COUNT l== 1? 
LEFT l^ NIL? 
RIGHT 1=: NIL? 
BAL J= 
END 
END 
ELSE 

IF X < P"»KEY THEN 
BEGIN 

SEARCH<X?P"»LEFT?H) ? 
IF H THEN 

CASE P'%BAL OF 
II BEGIN 

P'"»BAL 1--= 0? 
H 1= FALSE 
END? 
01 P'-\BAL 1= ~1? 
-II BEGIN ()KREBALANCE)K) 
PI 1= P-\LEFT? 
IF PI-- ♦BAL = -1 THEN 
BEGIN 

P"*LEFT 1== P1'*%RI6HT? 
PI"* RIGHT 1= P? 
P"-»BAL 1= 0? 
P 1= Pi 



END 
ELSE 
BEGIN 

F'2 1=^ Pl^-^RIGHT? 
P1'\RIGHT J= P2^\LEF"Ty 
P2''\LEFT l== Ply 
P-\LEFT 1= P2-%f<IGHTy 
P2'^»Fa6HT t- PI 

IF P2'"*BAL == "1 THEN P'^BAL I == -M ELSE P''\BAL J= 0? 
IF P2'"*BAL =••= 1 THEN Pl-^^BAL J== -1 ELBE Pl'^^BAL ?= 0? 
P t-^ P2 
END? 
P~->EAL *™ 0? 
H ?=: FALSE 
END 
END 
END 

uL Ik* O ilZ> 

IF X > P-\KEY THEN 
BEGIN 

seaf;:ch ( X y p'" ♦ ra* ght y h > ? 

IF H THEN (^fs'IGHT BRANCH HAS GROWN HIGHERX^:) 
CASE P-^^BAL OF 
-11 BEGIN 

P'"*BAL t^ Oy 
H t~-~- FALSE 
END? 
01 P'"*BAL 1= fi? 
•fll BEGIN 

PI J= P'-\ RIGHT? 

IF P1'^»BAL = -M THEN 

BEGIN (^SINGLE RR ROTATION)^) 
P'"*RIGHT J= Pl-"-*LEFT? 
PI"* LEFT l== P? 
P''%BAL 1=^ Of 
P 1= PI 
END 
ELSE 
BEGIN 

P2 t^ P1'%LEFT? 
P1"*LEFT !==•• P2~*RI6HT? 
P2'"» RIGHT J= PI? 
P''% RIGHT 5= P2'"*LEFT? 
P2'"*LEFT **= P? 

IF P2"^*BAL = -il THEN p-^^BAL J= -1 ELSE P"»BAL l== 0? 
IF P2'"»BAL =:: ~1 THEN P1''\BAL 1= 1 ELSE Pl-^^BAL 1= 0? 
P 1= P2 
END? 

P'-^BAL 1= 0? 
H 1= FALSE 



END 



END 



END 

f ». L., O C* 

BEGIN 



P'^ COUNT ?==•• P'"» COUNT -f IJ 
H J= FALSE 
END 
END? 



PROCEDURE PRINT (P.' REF)? 
BEGIN 

IF P <> NIL THEN 
WITH P'" DO 
BEGIN 

WRITELN<KEYj ' '? COUNT? '" 'yBAD? 
PR I NT ( LEFT)? 
PRINT (RIGHT) 
END 
END? 



BEGIN 

TIME <HT? LTD? 

P t^ NIL? 
H 1=: FALSE? 

FOR I J= TO 9 DO 

FOR J 1=:: TO 999 DO 
BEGIN .p. 

X 1= ((((J * 17) -J- (I :^ 513)) HOD 117) MOD 51) 
SEARCH (X'yPyH) 
END? 

TIME(HT?LT2) ? 

PR I NT (P)? 

WRITELN(< (LT2 - LTD -f 30) DIM 60?'' SECONDS')? 
END* 



PROGRAH RQUICKSORT ? 

TYPE INDEX == Cu*2999? 

MAR A t ARRAYCiO* *29993 OF INTEGER? 
C t CHAR? 
HTa..TlyLT2 I INTEGER? 

PROCEDURE SORT(L»R t INDEX)? 
VAR lyj I INDEX? 

Xyy t INTEGER? 
BEGIN 

I ^== L? 

J J= R? 

X := Ai:(L+R) DIM 23? 

REPEAT 

WHILE AC 1 3 < X DO I 1= I -}• 1? 
WHILE X < ACJ^ DO J 1= J -• 1? 
IF I O J THEN 
BEGIN 

W 1= ACI3? 
ACI3 1= AL'J3? 
ACJ3 1= W? 
I J= I 4- 1? 
J * ~ 3 " 1 y 
END 
UNTIL I > J? 

IF L < J THEN SORT<L?.J)? 
IF I < R THEN SORT<I?R)? 
END? 

BEGIN 

FOR LTl t^ TO 9 DO 

FOR LT2 !=••= TO 299 DO 
BEGIN 

HT !=•• (LT2 t 10) •\- LTl? 

AI::HT3 l^ ((((LT2 * 17) -V (LTI * SlS)) hod 117) HOD 51)? 
END? 

WRITE( 'PRINT INPUT? >')? 
READLN(C)? 
IF C == 'Y' THEN 
FOR LT2 l~ TO 299 DO 
BEGIN 

WRITELN? 

FOR LTl J= TO 9 DO WRITECAl (LT2 t 10) -f LT13?' ')? 
END? 

. TIHE<HT?LT1)? 
SORT (0? 2999)? 
TIME<HT?LT2)? 
HT J= (<LT2 - LTl) + 30) DIM 60? 



WR I TE < ' PR I NT OUTPUT? > ' ) ? 



F<EADLN(C)y 
IF" C = 'Y'- THEN 
FDR LT2 := TO 299 DO 
BEGIN 

UJRITELN? 

FOR LTl J= TO 9 DO WRITE (hL (LT2 * 10) -f LTl^y' ')? 
END? 

WRITELN? 

yRITELN<HTy' SECONDS')? 
END* 



PROGRAM QUICKSORT ? 
CONST M = 100? 
TYF'E INDEX = 0* 4 2999? 
MAR I?JH.-?R t INDEX? 

XjW?HTyLTl?LT2 ** INTEGER? 

S * * ♦ M ? 

STACK I arrayci**m:i of record 

L?R t INDEX 
END? 
A I ARRAYCO* 42999;] OF INTEGER? 
C I CHAR? 



BEGIN 

FOR LTl 1= TO 9 DO 

FOR LT2 1== TO 299 DO 
BEGIN 

HT t^ <LT2 >K 10) + LTl? 

ACHT;] t= (<<<LT2 W. 17) f (LTl * 513)) MOD 117) HOD 51)? 
END? 

WRITE( 'PRINT INPUT? >')? 
READLN<C)? 
IF C = 'Y' THEN 
FOR LT2 l== TO 299 DO 
BEGIN 

WRITELN? 

FOR LTl 1= TO 9 DO WRITE< AL" (LT2 ^. 10) -}• LT13?' ') 
END? 

TIM£(HT?LT1) ? 

S t=-- 1? 

STACKCllUL S= 1? 
STACKCi:i*R S=--^ 2999? 
REPEAT 

L 1= STACKi:S3»L? 
R 1= STACKlSj^R? 
S 1== S - 1? 
REPEAT 
I * ~ L ? 
J 1= R? 

X t^ ACCL + R) DIM 23? 
REPEAT 

WHILE AC 1 3 < X DO I 1= I -}• 1? 
WHILE X < ACJD DO J ?== J - 1? 
IF I <> J THEN 
BEGIN 

W J= ACI3? 
A!:i3 t^- ACJ-I? 
ACJ3 1= W? 
1 t--^ X f 1? 
J J= J -• 1? 



END 
UNTIL I > J? 
IF I < FJ: THEN 
BEGIN 

S ?=•• S -i- 15 
STACKL"S:i*L t=~- I? 
STACKi::S3*R **==•• R 
END? 
R 1== J 
UNTIL L >= R 
UNTIL S = 0? 

TIHE<HT?LT2) ? 

NT J= <(LT2 - LTD + 30) DIM 60? 

WRITE( 'PRINT OUTPUT? >')? 
READLN<C)? 
IF C = 'Y' THEN 
FOR LT2 S= TO 299 DO 
BEGIN 

WRITELN? 

FOR LTl .t= TO 9 DO WRITE ( AC (LT2 )K 10) + LT13»' '' ) ? 
END ? 

WRITELN? 

yRITELNCHT?'- SECONDS') 
END* 



F'ROGRAH HEAPSORT? 
TYPE INDEX ~ l.*3000? 
MAR LyR t INDEX? 

X?HT?LTlfLT2 t INTEGER? 

C t CHAR? 

A : ARRAYCl* *3000a OF INTEGER? 

PROCEDURE SIFT? 

LABEL 13? 

MAR I t INDEX? 

J i INTEGER? 
BEGIN 

I t^ L? 
J J= 2*1? 
X J= ACI3? 
WHILE J <> R DO 
BEGIN 

IF J < R THEN 

IF Ai:J3 < ACJ •{• 13 THEN J 1= J f 1 
IF X >=:: Ai:J3 THEN GOTO 13? 
AC 1 3 := ACJl? 
I 1= J? 

vJ * "" Ai« '1^ X 

END? 
131 AC 1 3 t-^- X 
END? 



BEGIN 

FOR LTl J== TO 9 DO 

FOR LT2 t--^ TO 299 DO 
BEGIN 

HT 1= (LT2 t 10) f LTl? 

ACHT -h 13 i^ ((<(LT2 ^< 17) -f- (LTl t 513)) HOD 117) HOD 51) ? 
END? 

WRITE( 'PRINT INPUT? >')? 
Fi:EADLN(C) ? 
IF C := 'Y' THEN 
FOR LT2 t= TO 299 DO 
BEGIN 

yPITELN? 

FOR LTl J= TO 9 DO WRITE(AC<LT2 * 10) + LTl -f 13?' ') 
END? 

TIME(HT?LT1)? 



L 1= (3000 DIM 2) -h 1? 
R 1= 3000? 
WHILE L > 1 DO 
BEGIN 



L :=:: 


L -- i? 


SIFT 




END? 




WHILE R ;: 


> 1 DO 


BEGIN 




X t-^- 


A i: 1:1 5 


Aci:i 


t^ ACR3? 


ACRII 


1= X? 


R l== 


R ~ 1? 


SIFT 




END? 





TIHE<HT?LT2)^ 

HT J= ((LT2 - LTD •{• 30) DIM 60 f 

WRITE( 'PRINT OUTPUT? >')? 
READLN(C)» 
IF C = 'Y' THEN 
FOR LT2 1= TO 299 DO 
BEGIN 

WRITELNy 

FOR LTl t'^ TO 9 DO WRITE< AC (LT2 ^< 10) -f LTl i- II9' " ) 5 
END? 

WRITELN? 

WR I TELN ( HT y ' SECONDS ' ) 



END* 



APF'ENDIX G -•• Hie roc ode Used for Timinifi 



V CNTEFil^MIC 

? >K >l< iji * >li *•*>}<* >{<5{< 5K ^ )K :^' >}=:* ^ * ){i )K >f? )}i 

i) hicf;;o code locations 

? ;|ic >}( ^tt^^ ^ 1 1 :i' t * )K * >K ^ >K >K 1 1 1 1 >1< 

? MACRO MEMORY LOCATIONS 

LLASTMP === 16 
HLASTMP == 1 

LJTAB =:•• 20 
HJTAB == 1 

LSE6 ^ 22 
HSEG " 1 

? MARK STACK OFFSET VARIABLES 

HSSTAT = 
HSDYN = 2 
MS I PC -• .1.0 
MSSEG =^- 6 
iiSJTAB ™ 4 
MSSP -== 12 
MSBASE = -2 
H8DLTA =12 





LOG 


3000 




JMP 


Oj-TROFF 




JMP 


DECODE 


ERROR 1 


JMP 


0?TROFF 




JMP 


CLKOPS 


INTRUP? 


JZBF 


REREAD 




LGL 


RPSWL 




MI 


GH^GL 




JMP 







JMP 


OPBIG 




JMP 


OPBIG 




JMP 


OPBIG 




JMP 


3500 




JMP 


3504 



?0P CODE 76770 

? 76771 

y 76702 

? 76773 

? 76774 





JMP 


OrCROFF" 


f 




JMP 


O^TROFF 


f 




JHP 


OmTROFF 


f 


REREilAD 


J LL 


7yPCH?RSUC 






LL 


120?PCL ' 




DECODE 


t CL 


175?RIRL 






JZBF 


ERROR 






CL 


304?r:i:rh 






JZBT 


CLKOFF 






AL 


iOyRIRH 






JCBF 


ERROR 






Wl 


RPSWLyRIRH 






JHP 


3010 




BLDCI.? 


AL 


376?SPL 






CDB 
W 


SPH 
SPi-USPL 






OUJ 


RPSWL?GL 




EXIT? 


NOP 
NOP 
NOP 








JHP 


CLKOFF 




NEXTI 


LGL 


RIRH 






RlUJi 


GH?GL 






LGL 


RPSWL 






LL 


377 ?GH 






LL 


6?RSRCL 





76775 
76776 
76777 



i INDEX JUMP TABLE ABOVE 



IBF 



2yGL 



LL 


7?RBAH 


LL 


J.16yRBAL 


W 


RBAHyRBAL 


OW 


RPSUL y GL 


JNF 


SLDCI 


SLB 


GLpGL 


R 


RSRCL 9 GL 


LL 


lyRSRCL 


LL 


2i»RBAH 


LL 


3yRBAL 


IW 


OyRDST 


AL 


iO?Fi!DSTH 


JC8F 


HACRO 





HI 


RDBTHyRDSTL 




JMP 





HACRO: 


AL 


-lOyRDSTHyRSVC 




MW 


RDST?PC 



? COMMON PROCEDURES SECTION 



OPBIGJ 


JMP 


BI62^LRR 




NOP 


RSMC 


GETBIG^ 


LL 


OyRIRH 


BIG2I 


LL 


4yRDSTL 




LGL 


RDSTL 




RIWl 


GHyGL 




LGL 


RIRH 




LL 


OjGH 




IB 


2?GL 




JNBF" 


ISMALL 




LGL 


RBSTL 




RIWl 


GH.»GL 




LGL 


RIRH 




MB 


GL?6H 




NL 


177, GH 




IB 


2?GL 


I SMALL 1 


LL 
RFS 


4 y RIRH 


SUB? 


RIW2 


SPHySP 




m 


C'yRIR 




R 


SPH ? SP 




IW 


0?RDST 




SWF 


RIRyRDST 




RFS 




PSHFLS^ 


LL 


0?RSRCL 


PSHTRUI 


W 


SPH?SPL 




OW 


RPSWLfRSRCL 




JMP 


EXIT 


EQUI? 


JMP 


SUB?LRR 




JZT 


PSHTRU 




JMP 


PSHFLS 


NEQIt 


JMP 


SUByLRR 




JZF 


PSHTRU 



LEQIJ 



GRTI* 



JHP 


PSHFLS 


JMP 


suB)»lf;;r 


JZT 


PSHTRU 


CCF 


RBAL 


NL 


12!»RBAL 


JZBT 


PSHFLS 


QCB 


RBAL? RBAL 


JZBT 


PSHFLS 


JMP 


PSHTRU 


JMP 


SUByLRR 


JZT 


PSHFLS 


CCF 


RBAL 


NL 


12? RBAL 


JZBT 


PSHTRU 


OCB 


RBAL? RBAL 


JZBT 


PSHTRU 


JMP 


PSHFLS 



LOC 3250 ? MACRO 3230 
JMP GETBIG?LRR 



- 177250 



SLW 


G?RDST 


AL 


12?RDSTL 


CIB 


RDSTH 


RIW2 


SPH?SPL 


L6L 


RIRL 


Aki 


G?RDST 


m 


OjRSRC 


W 


RDSTH yRDSTL 


OW 


RSRCHyRSRCL 



JMP 

LOC 

CLKOPS^ CL 

JZBF 
LL 

L-i„. 

JZBT 
CL 

JZBF 

CLKONt LL 
LL 
LL 

W 



EXIT 



173? RIRL 

ERROR 

1 7 5 ? R I R L 

304?RIRH 
NEXT 

314?f^IRH 
ERROR 

361? RDSTH 

20?RDSTL 

17?RSRCL 

RDSTH ?RDST 





OW 


RPSWLyRSRCL 




JMF- 


NEXT 


CLKOFF 


1 LL 


36J. yRDSTH 




LL 


20fRDSTL 




LL 


2b^PCL 




Li- 


7yPCH 




U 


RDSTH?RDSTL 




LI... 


PCL?PCH?RSMC 
I227PCL 



*ELND 



•il=CNTINT*MIC 

? MACRO HEMORY LOCATIONS 

LLASTHP - 16 

!"ILA3THP ™ 1 

LJTAB -^- 20 
HJTAB ^- 1 

LSEG -: 22 
HISEG :== 1 

y MARK STACK OFFSET VARIABLES 

MSSTAT == 
MSDYN ~~ 2 
MS I PC ™ iO 
nSBEG =" 6 
nBJTAB ™ 4 
MSSP =:= 12 
MSB ABE - -2 
MSDLTA =12 

? JTAB OFFSETS 

ENTRIC ~~~ -2 
DATABZ " -10 
PhRMSZ =" -6 



CORE SECTION 



LOC 3000 



ERROR I 



JMP 


OyTROFF 


JHP 


DECODE 


JMP 


? TROFF 


JMP 


CLKOPS 



LOC 3004 



y OPCODES 220-227? RESERVED BY DEC* 

? OPCODES 76000-76777? TOP 64 ARE OURS* 

? MICRO POWER UP* 



? MICROINTERRUPT ABORT ENTRY POINT* 



; RE Ala 



DECODED CI. 



AL 


-2,PCLvm 


CDB 


PCH 


CL 


175i^FaRL 


JZBF 


ERFilGR 


CL 


304?F<IRH 


JZBT 


CLKDFF 


AL 


20yRIRH 


JCGF" 


ERROR 


HI 


RPSWLyRIi- 


JHP 


3760 


LOG 


3760 


JHP 


DECHOV 


JHP 


DECHOV 


JHP 


DECHOM 


JHP 


0?TROFF 


JHP 


CLP 


JHP 


CIP 


JHP 


OyJROFF 


JHP 


OyTROFF 


JHP 


INCHOV 


JHP 


INCHOM 


JHP 


INCHOM 


JHP 


OjTROFF 


JHP 


0PB16 


JHP 


0?TROFF 


JHP 


CHK 


JHP 


LKLST 



■) RETURN TO HACRO TO SERVICE INTERRUPT* 

■f DECREHENT PC SO SAHE OPCODE WILL BE 

9 READ AGAIN* 

? CHECK OPCODE TO HAKE SURE ITS LEGIT* 

? NOTE? HIGH ORDER BYTE OF OP IS IN 

? RIRL AND LOW BYTE IS IN RIRH* 

? QUICK CHECK FOR INTERPRETER FETCH OP 



f CHECK OPCODES FOR RANGE 76760-76777 

S USE LOiAJER 4 BITS OF OPCODE TO INDEX 

f HICRO JUHP TABLE* 

HICRO JUHP TABLE 

? OP CODE 76760 
? 76771 

y 76762 

? 76763 

9 76764 

y 7676S 

? 76766 

i 76767 

9 76770 

9 76771 

9 76772 

9 7677Z 

9 / 6 / / 4 

? 7677Zx 

y 76776 

9 76777 



LOG 



BLDCII y SHORT LOAD CONSTANT INTEGER 

AL "2pSPL y PUSH OPCODE ONTO STACK 

CDB SPH 

W SPHySPL 9 ( HOU RO?-<SP) ) 

OW RPSWLyRDSTL 

CINTRPI ? CHECK FOR INTERRUPTS AND THEN FALL INTO INTERPRETER FETCH* 
SI 16 
LL 4yRIRHyRSMC 
RI 16 
JHP CLKOFF 



IFETCH? ? INTERPRETER FETCH 

9 THIS IS SIHILAR TO THE BACK ROUTINE IN HACROCODE* 

y DIFFERENCES ARE? 

y 1* XFRTBL CONTAINS BOTH HICRO AND HACRO ADDRESSES* 

? HICRO ADDRESSES HAME HIGH ORDER 5 BITS SET TO IS* 

y 2* REGISTER IS NOT LOADED WITH THE OPCODE* 



9 INTERNAL REGISTEiiRS ARE INITIALIZED DURING THE COURSE OF 





? IFE 

y 

y 

? 

y 

y 


TCH AND CINTRP TO 
RSRCL === 1 
RBAH ■■^■■■- 2 
RBAL --■■■• 3 
RIRH --•■■■ 4 
RIRL r.. 5 




LGL 

RIWl 
LL 
LL 


RIRH 

GHyGL 
5 y RIRL 
6 y RSRCL 




I BI- 


2yrtDSTL 




LL 
LL 
U 
OUi 


7 y RBAH 
1 16 y RBAL 
RBAH y RBAL 
RPSWLfRDSTL 




JNF" 


SLDCI 




SLB 


RDSTLyRDSTL 




R 
LL 
LL 
LL 

IW 


RSRCL yRDSTL 
ly RSRCL 
2 y RBAH 

3 y RBAL vr;. 

OyRDST 




AL 
JC8F 


lOyRDSTH 
MACRO 




MI 
JMF- 


RDSTH yRDSTL 



MACRO 


t AL 
MW 


"10 y RDSTH yRSMC 
RDSTypC 



P--MACINE OP CODES 



CLKOPS? CL 1 73 y RIRL 

JZBF ERROR 

LL I75yRIRL 

CL 304 y RIRH 

JZBT I FETCH 

CL 3i4yRIRH 

JZBF ERROR 



y READ OPCODE 

? TEMPORARY - UHEN XFRTBL IS HOMED TO 
? ADDRESS 400 CHANGE TO LL 1 y RSRCL. 



y ACCESS XFRTBL* 

y TEMPORARY - SEE NOTE ABOME 



y SEE IF ITS MICRO OR MACRO ADDRESS 



y JUMP TO MICRO ROUTINE 



y BACK TO MACRO* 



CLKONi 


LL 


361yRi:iSTH 




Li,. 


20yRIiSTL 




LL 


17?RSRCL 




W 


RDSTHyRDSTL 




OW 


RPSWLyRSRCL 




JHP 


IFfcHCH 


CLKOFFJ 


LL 


361?RIiSTH 




LI- 


20yRDSTL 




LL 


2?PCL 




LL 


7 ? PCH 




W 


RDSTHYRDSTL 




oy 


PCLyPCHyRSyC 




LL 


122?PCL 



V .Jf-.J?i.f.^%4i 



AL 


MSDLTAyRDSTL 


CIB 


RDSTH 


LGL 


RIRL 


AW 


G?RDST 


SW 


RBAH?SP 


14 


SPHySPL 


OW 


RDSTHYRDSTL 


JHP 


CINTRP 



LAO I ? LOAD GLOBAL ADDRESS 
JHP PRCBXG?LRR 
BLW G?RDST 



AL 


HSDLTAyRDSTL 


GIB 


RDSTH 


LGL 


RBAL 


AW 


GyRDST 


SW 


RBAHySP 



W SPH ? SPL 

OW RDSTHyRDSTL 



JMP CINTRF' 



j?)K5K)K>K^ 






AND? 


9 AND 






r;i:w2 


SPHySPL. 




IW 


OyRDST 




R 


SPFbSPL 




IW 


4yRSRC 



Nw R8i-<Ci'RDSr 





OW 




RDSTH?RDSTL 




JHP 




CINTRP 


0:4i)J?)K*:* 








LDCI? 


? LO.i 


hD 


CONSTANT WORD 




LGL 




RIRH 




RIWl 




GHvGL 




IB 




2yRDSTL 




RXWl 




GH.mGL 




Sl*j 




RBAI-bSP 




IB 




2?RDGTH 




W 




SPl-bSPL 




QU 




RDSTH?RDSTL 




jn? 




CINTRP 



FJPi ? FALSE JUHP (NOTE? REQUIRES UJP BE PRESENT) 

RIW2 SPH?SPL 

LGL RIRH 

IBF ;URSRCL 

SRBF RSRCL?RSRCL 

JCF UJPSKP 

ICWl 6? 6 

JHP CINTRP 

UJP? 5 UNCONDITIONAL JUHP 

LGL RIRH 

UJPSKP; RIWl GHyGL 

IBF 2?RSRCH 

JNBT LONG 



LONG I 



AW 


RSRCHyG 


JMP 


CINTRP 


LL 


i?RDSTH 


LL 


20?RDSTL 


R 


RDSTHjRDSTL 


IW 


0?G 


AW 


RSRCH^G 


R 


GHi^GL 


IW 


0?RSRC 


SW 


RSRCyG 


JMP 


CINTRP 



? COMMON PROCEnUJRE USED BY COMPARISONS 
RIW2 SPH?SP 
IW 0?RIR 





R 
IW 


SPH?SP 
OyRDST 




SWF 
RFS 


RIRyRDST 


EQUI^ 


y I Nil 


iTGER EQUAL 



JMP SUB?LRR 

JZT PSHTRU 

PSHFLSI LL 0?RSRCL 

F'SHTRUI W SPhUSPL 

OW RPSWLvRSRCL 

JMP CINTRP 



NEQI^ y INTEGER NOT EQUAL COMPARE 
JMP SUByLRR 
JZF PSHTRU 
JMP PSHFLS 

LEQIi ? INTEGER LESS THAN OR EQUAL COMPARE 





JMP 


SUB.vLRR 




JZT 


PSHTRU 




CCF 


RBAL 




NL 


12>RBAL 




JZBT 


PSHFLS 




OCB 


RBAL? RBAL 




JZBT 


PSHFLS 




JMP 


PSHTRU 


^>K5K>li 







GRTIt y INTEGER GREATER THAN COMPARE 
JMP SUB?LRR 
JZT PSHFLS 



CCF 


RBAL 


NL 


J.2yRBAL 


JZBT 


F'SHTRU 


OCB 


RBAL? RBAL 


JZBT 


PSHTRLi 


JMF- 


PSHFLS 



?>i<>K)K5K 






STL? 


? STORE 


LOCAL 




JHP 


PRCBI6»LRR 




SLW 


6»RDST 




AL 


12?RDSTL 




CIB 


RDSTH 




RIW2 


SPHySPL 




LGL 


RIRL 




Ay 


G?RDST 




m 


OtRSRC 




W 


RDSTH yRDSTL 




OW 


RSRCH?RSRCL 




JMP 


CINTRP 



i;>K«^^ 






XJPI 


? CASE- 


TABLE 




RIUi2 


SPl-i ? SPL 




LGL 


RIRH 




ICWi 


G?G 




IW 


OyRDST 




NL 


376yGL 




Riy2 


GH?GL 




■j:w 


OyRSRC 




R3;W2 


GH?GL 




CWF 


RSRCyRDS 




CCF 


RIRL 




IW 


0?RBA 




NL 


12 y RIRL 




JZBT 


CONTl 




OCB 


RIRL? RIRL 




JZBF 


XJPEXIT 


CGNTl J 


CWF 


RDSTyRBA 




CCF 


RIRL 




NL 


i2?RIRL 




JZBT 


C0NT2 



OCB RIRLvRIFU.. 
JZBF XJPEXIT 



CUNT2I ICW2 GvG 

Sy RSRC?RDST 

SLW RDSTyRDST 

AW RDSTyG 

R 6H?GL 

IW OyRDST 

SW RDSTjG 

XJPEXIT I JHP CINTRP 



?>K)KJ{i* 






LDM^ 


y LOAD 


MULTIPLE 




R 


SPH^SPL 




LGL 


RIRH 




HW 


SPyRDBT 




Iki 
R 


OyRSRC 
GhbGL 




DWl 


G?G 




Li- 


OyRBAH 




IB 


2yRBAL 




JZBT 


LDHEXIT 




sy 


RBAL?RDST 




sy 


RBALj'RDST 




icy 2 


RDSTyRDST 




ny 


RDST?RBA 


LDHLOP 


4 SI 


16 




LL 


1»RIRH?RSMC 




RI 


16 




Riy2 


RSRCH?RSRCL 




cyp 


RDST?SP 




ly 


Oj-RIR 




yiy2 


RDSThURDSTL 




oy 


RIRhbRIRL 




J7iF 


LDMLOP 




mi 


RBA?SP 


LDMEXI 


It icy 2 


G ? G 



JMP 



CINTRP 



1'^ H P t 



^ RETURN FROh NORMAL F'ROCEDURE 

LGL RIRL 

My G/RSRC 

AL MSSP?RSRCL 

CXB RSRCH 



RNF'LOl" 



R 


RSRCH yRSRCL 


LGL 


RPSWL 


m 


OfG 


LGL 


RIRH 


R' 


GHyGL 


DWl 


GpG 


LL 


0?RBAH 


IB 


2yRBAL 


JZBT 


DOF'ROC 


AW 


RBA?RSRC 


AW 


RBAyRSRC 


LGL 


RPSWL 


LL 


2?RBAH 


R 


RSRCH ?RSRCL 


SW 


RBAHyRSRC 


SW 


RBAHi-G 


IW 


0?RDST 


W 


GH?GL 


OW 


RDSTH^RDSTL 


DBl 


RBALvRBAL 


JZBF 


RNPLOP 



DOPROC^ LGL 



RIR 



SI 
HW 
RI 

ICW2 



16 

G?RSRC?RSVC 

16 

RSRCyRSRC 



RIW2 


RSRCH ?RSRCL 


y LASTHP 


LL 


LLASTHPyRDSTL 




LL 


HLASTMP?RDSTH 




IW 


0?G 




WIW2 


RDSTH?RDSTL 


■f LASTHP 


OW 


GHyGL 





RIW2 


RSRCHyRSRCL 


y 


J TAB 


LGL 


RF'SWL 






IW 


0?RBA 






WIW2 


RDSTi-bRDSTL 


? 


J TAB 


OW 


RBAHyRBAL 






Riy2 


RSRCH?R8RCL 


? 


SEG 


My 


GySF' 






IW 


Oi'RBA 






yiy2 


RDSTH?RD8TL 


y 


SEG 


ow 


RBAH?RBAL 






R 


RSRCH?RSRCL 


9 


IPC 


LGL 


RIRH 






m 


0,G 






JHP 


CIiNTRP 







y COHMON PROCEDURES SECTIGN 

? THE F'OLLDWING ARE COHHGN PROCEDURES THAT CAN BE USED BY 

V ANY P--MACH1HE OPCODE* 



y GETBI6 - PERFORMS THE SAME FUNCTION AS THE GETBIG MACRO EXCEPT 
i THE MALUE RETURNED IS ALWAYS IN REGISTER 0* 

y ASSUMES RIRH CONTAINS A 4* 

OPBIG^ y ENTRY POINT FOR GETBIG OPCODE -- FROM MACRO CODE* 
JMP PRCBIGyLRR 
NOP RSMC 

PRCBIG^ ? ENTRY POINT FOR GETBIG PROCEDURE •- CALLED FROM MICROCODE 
LGL RIRH 



RIWi 


GHyGL 


LGL 


RPSWL 


LL 


Oi-GH 


IB 


2yGL 


JNBF 


I SMALL 


LGL 


RIRH 


RIWI 


GHyGL 


LGL 


RPSWL 


MB 


GL y GH 


NL 


1 77 vGH 



IB 2yGL 
I SMALLS RF"S 



INCHOUI ? OPCODE 76770-76772 

? pef;:forhs the operation 

P l$l MOM (RB)-h?<:RC)i 

p SOB RA?1$ 

? RA IS THE LOW ORDER DIGIT OF THE OPCDOE AND RB AND RC 

? ARE THE LOy ORDER 3 BITS OF THE LOW AND HIOH ORDER BYTES 

y RESPECTIivJILY OF THE WORD FOLLOWING THE OPCODE* NOTE? 

? RA CAN ONLY BE REGISTERS 0?ly OR 2 AND THE REGESTER SHOULD 

y CONTAIN A NUMBER > TO OPERATE AS PROBABLY INTENDED 

? (I*E» IT WILL BEHAVE LIKE A SOB) 

R PCHyPCL 
IW OyRBA 

I LOOP ^ SX 16 

LGL RBALyRSUC 
F< I 16 

RIW2 GHyGL 

LGL RIRH 

DWIF G?G 

IW OyRDST 

LGL RBAH 

WIW2 GHyGL 

OW RDSTHyRDSTL 

JZF I LOOP 

ICW2 PCyPCyRSVC ? **>K NOTE RSUC HERE 



LKLSTI y OP CODE 76777 

y PERFORMS THE FUNCTION 

■y 1%% MOM §RlyRl 

y SOB Fv'Oyl$ 

? THE INITIAL ADDRESS MUST BE IN REGISTER 1 AND THE COUNT 

y IN REGISTER 0* THE COUNT MUST BE IN THE RANGE 1**127 TO 

y WORK PROPERLY* 

LL lyRSRCL 

LLOOPi SI 16 

LGL RSRCLyRSUC 
RI 16 

R 6H y 6L 
LGL RPSWL 



DBIF- 


GLvGL 


LGL 


f;:srcl 


IW 


OvG 



JZF" LLDOP 

HOP Fi:S^C 

NOP ? mi-^ TEMPORARY 



DECMOy? ? OPCODE 76760-76762 

? PERFORMS THE OPERATION! 

9 Hit HOM -(Fv'B)f-(RC) 

5 SOB RAyl$ 

y RA IS THE LOW ORDER DIGIT OF THE OPCODE AND RB AND RC ARE 

y THE LOW ORDER 3 BITS OF THE LOW AND HIGH ORDER BYTES 

? RESPECTIVELY OF THE WORD FOLLOWING THE OPCODE* NOTE? RA 

? CAN ONLY BE REGISTERS 0?1 OR 2 AND THE REGISTER SHOULD 

5 CONTAIN A NUMBER > <!*£♦ IT WILL BEHAME LIKE A SOB) 

R PCHyPCL 
IW 0?RBA 
LL 2?RSRCH 

DLOOPI SI 16 

LGL RBALj^RSMC 
RI 16 

SW RSRCH y G 

R GHyGL 

LGL RIRH 

DWIF GfG 

IW OyRDST 

LGL RBAH 

SW RSRCH y G 

W GHyGL 

OW RDSTHyRDSTL 

JZF DLOOP 

ICW2 PCyPCyRSMC 

NOP y:^:{c:^:.irrEMPORARY - FIND NON JUMP 



y MACRO P-MACHINE OPS 

9 THIS SECTION CONTAINS THOSE P-MACHINE OPS THAT HAVE THEIR OWN 

i) OPCODE I*E, THEIR MICRO ADDRESS IS NOT OBTAINED FROM THE XFRTBL 



CHKt y CHECK AGAINST SUBRANGE BOUNDS 

yOP CODE 76776 

? MACRO CODE SHOULD LOOK LIKE? 
? ♦WORD 76776 
? .WORD 76704 
y TRAP INUNDX 

RIW2 SPH?SPL ? GET MAXIMUM RANGE 
ICW2 PC?PC f THIS INSURES THAT BOTH THE INMNDX 

f AND NORMAL CINTRP EXIT ROUTINES WORK RIGHT 
IW OyRSRC 

? GET MINIMUM RANGE 



RIW2 


SPHySPL 


IW 


OyRDST 


R 


SPHfSPL 


IW 


0?RIR 


CWF 


RIR?RSRC 


JMP 


LSSTHNaJ"<R 


CWF 


RDSTs^RIR 


JMP 


LSSTHN?LRR 


JMP 


CINTRP 



9 GET SCALAR 



f CHECK MAXIMUM RANGE 



? CHECK MINIMUM RANGE 



RTRHt RFS 



LSSTHN? CCF 


RBAL 


NL 


i2?RBAL 


JZBT 


RTRN 


OCB 


RBAL? RBAL 


JZBT 


RTRN 


NOP 


RSMC 



? IF LESS THAN -> RETURN 
y TO MACRO CODE FOR TRAP 



9 RANGE ERROR f^-^^ NOTE RSMC 



CIPI f OPCODE 76765 

y CALL INTERMEDIATE PROC - SEARCH FOR PAREN' 





LL 
LGL 


1?RIRH 
RIRH 




R 

LGL 
IB 


GHyGL 
RIRL 
OyRBAH 




JZBT 
JNBF 


QUIT 
CONT 


OUITI 
CONTI 


ICW2 
MW 


PC?PCyRSyC 
GyRDST 



y (DELETE THIS ONCE REAL OP CODE IS IN USE) 
y GET LEX LEMEL OF PROCEDURE BEING CALLED 



y IF ZERO OR -1 RETURN TO MACRO CODE FOR 
y JUMP TO THE LAST PART OF CBP 



LOO!"-: AL 4yRDSTL f SEARCH DQUiN DYNAHIC LINK FOR PARENT 



AL 


4yRDSTL f 


GIB 


RDSTH 


R 


RDSThbRDSTL 


IW 


0?RSRC 


SI 


16 


LL 


2?RIRHyRSMC 


RI 


16 


R 


RSRCHyRSRCL 


SW 


RIRHyRDST 


IB 


O^RBAL 


CB 


RBAHpRBAL 


JNBT 


GOT IT 


R 


RDSTH yRDSTL 


ly 


OyRDST 



f CHECK F"OR INTERRUPTS 



? GET LEX LEVEL OF THE PROCEDURE 



? COhPARE LEX LEUELS 
f IF ITS LOWER WE'UE FOUND THE PARENT 

? IF NOT LINK DOWN TO NEXT PROCEDURE 
? ON THE DYNAMIC STACK 

JMP LOOP f KEEP LOOKING FOR PARENT 



? PUT LEX LINK ON THE STACK 



GOTITI 


SW 


RIRH?RDST 




R 


RDSTH yRDSTL 




IW 


OyRSRC 




W 


GHyGLyRSUC 




GW 


RSRCHvRSRCL 



?5K>K>i<* 






CLPERR? 


NOP 


RSMC 


CLP? 


? CALL 


LOCAL PROCED 




LL 


LSEGyRDSTL 




LL 


HSEG? RDSTH 




LGL 


RPSWL 




R 


RDSTH ?RDSTL 




HW 


SP?G 




LL 


2 3- RBAH 




LGL 


RBAH 




IW 


OfG 




LGL 


RIRH 




R 


GHyGL 




LL 


lyRSRCL 




LGL 


RSRCL 




LL 


0?GH 




IB 


2yGL 



y STACK OMERFLW - RETURN TO MACRO 



? HOU SPyRO 

y USES R2 INSTEAD OF OLDSEG 
y MOM SEQy OLDSEG 



y 6ETBYTE Rl 



SLW GyG y ASL Rl 



TCW G?G v HEG Rl 



LL 


LSEGyRDSTL 


LL 


HSEGi'RDSTH 


!•;: 


RDSTHpRDSTL 


IW 


Os-RDST 


AW 


RDSTyG 


R 


GH?GL 


LL 


377»RDSTH 


LL 


DATASZ?RDSTL 


ly 


0?RSRC 


sw 


RSRCyG 


AW 


G?RDST 


R 


RDSTHyRDSTL 


LL 


SOs-RBAL 


HW 


SF'yRDST 


IW 


0?RSRC 


Bl 


16 


BW 


RSRCyRDST 


RX 


16 


R 


RPSWL?RBAL 


LGL 


RIRL 


IW 


0?RSRC 


CW 


RDSTyRSRC 


JZBT 


CLF'ERR 


JCBT 


CLPERR 


AL 


-•14?RDSTL 


CDB 


RDSTH 


HW 


RBSTyRIR 


WIW2 


RDSTH ?RIiSTL 


OW 


GilyGL 



5 ADD SEG?R1 



f SUB @R1?R1 



SUB DATASZ(Rl)ySP 



y CMP SP?NF' 
7 BLGS CLPERR 

y REMERSE PUSH ORDER 



f MOM MP?™<SP) 
LL LJTAByRSRCL 

9 MO'v' HP y-(SP) 



WIW2 


RDSTH fRDSTL 


OW 


GHyGL 


LL 


HJTAByRSRCH 


R 


RSRCHyRSRCL 


LGL 


RBAH 


LL 


lyRSRCL 


IW 


OyRBA 



WIW2 RDSTHyRDSTL ? MOM JTABy--<SP> 



ow 


F;:BAHyF::BAL 


LL 


4i'F^sf;;ch 


WIW2 


F^nSTHyRDSTL 


OW 


G{-bGL 


LGL 


RSRCH 


ICWl 


GyRBA 


W 


RDSTHyRDSTL 


oy 


RBAHi'RBAL 



? MOM OLDSEGy-(SP) 

9 (R2 USED INSTEAD OF OLDSEG) 



? MOM IPCy~(SP) 



LGL RSRCL 



SI 


16 






m 


GjRDST 






RI 


16 






AL 


PARMSZyRDSTL 






CDB 


RDSTH 






R 


RDSTHyRDSTL 






LGL 


RPSWL 


f 


MOM PA 


lUJ 


0?RDST 


A 

9 


(IPC 


JZBT 


CLPFIN 


A 

? 


BEG 2t> 





SRW 


RDSTH yRDaiH 




MW 


RIRyRSRC 




AL 


MSDLTA-i-2yRS: 




CIB 


RSRCH 


CLPLOP^ 


RIW2 


GH ?GL 




DWIF 


RDST?RDST 




ly 


Os-RBA 




SI 


16 




LCF 


Oy RPSWL 




RI 


16 




wiy2 


RSRCH? RSRCL 




OW 


RBAHyRBAL 




JZF 


CLPLOP 


CLPFIN 1 


HW 


RIR?SP 




LL 


5?RIRL 




LL 


4yRIRH 




LGL 


RIRL 




MW 


SPyG 



? ASR IPC 
f MOM SP?MP (MP NOT USED) 

y ADD #MSDLTAf2?MP 



y SET Z FLAG TO FALSE 



f MOM Spy MP 



LL 


LLASTHPyF<DSTL 


LL 


HLASTHi"":.-RDE:rrH 


WXW2 


RDSTHhRDSTL 


OW 


GHi^GL 


mi 


GyRSRC 


AL 


MSSPyRSRCL 


CIB 


RSRCH 


LGL 


RPSWL 


W 


RSRCH y RSRCL 


OW 


GH?GL 


LL 


li- RSRCL 


LGL 


RSRCL 


y 


RDSTHyRDSTL 


OW 


GHyGL 


HW 


GyRDST 


AL 


ENTR1C?RBSTL 


CDB 


RDSTH 


R 


RDSTH?RDSTL 


LGL 


RIRH 


HW 


RDST?G 


IW 


0?RDST 


SW 


RDSTyG?RSMC 


ICW2 


PC? PC 



y m^ HP? LAST HP 



9 HOy ROyHSSP(HP) 



f HOM R1?JTAB 

9 HQM R1?IPC 

? ADD #ENTRICyT.PC 



? SUB ©IPC? IPC 

? SKIP OVER STACK OMERFLW ERROR BR 



END 



APPENDIX H 



M Pi C R -- 1 1 C o d e U s e cl f o r t i in i n i^ 



9 P-code Time/r 

? -mttt insef;:t into mainop at bottom of transfer table 

♦ ENDR 

* I R P N y < I?273?4y5?6?75'10?llyl27l3pl4yl5!'16?17?20> 
*WORD SLD0S-l<6>K<N-i» 

4 ENDR 

* I RP N ? <0 y i ? 2 7 3 ? 4 ? 5 y 6 y 7> 

* WORD SINDS4<10*N> 

♦ ENDR 
*NLI8T HE 

♦ BLKki 3)K<MAXUNT-fl> y UNIT TABLE IN lOTRAP 
jj _» 

INDEX J ♦WORD 

♦WORD 75704 y 60 HERE TO RESTART OPS THAT ARE . INTERRUPTED 

ENTRY! ♦WORD 75714 y MAIN ENTRY POINT / CHANGE TO NOP TO START COUNT 

MOM INDEX yRO 





TSTB 


RO 




BPL 


DOSLDCI 




BICB 


#200 ?R0 




ASL 


RO 




ASL 


RO 




ASL 


RO y C 




ADD 


#OPCNTSyR 


UPDATE 1 


ADD 


#4 yRO 




MOM 


<RO)-}-yWDl 




MOM 


<R0)yWD2 




MOM 


#ADDERyRl 




FADD 


Rl 




MOM 


WD2y (RO) 




MOM 


WDly--<RO) 




TSTB 


CSR 




BMI 


OMRFLW 




TST 


BPR 




BEQ 


ZTIME 



y CHANGE INDEX FROM OP CODE (LEFT SHIFTED 

y SHIFTED ONE) TO ACTUAL INDEX FOR OPCNTS 



y COUNT NUMBER OF TIMES EXECUTED 



y TEST FOR ERROR CONDITIONS 



MOM ~(RO)y-(SP) 
MOM ~(RO)y-(SP) 
MOM BPRy~CSP) 



1.4^ 



MOM 


IPCyFPIF'C 


TST 


( 8F' ) 


BMI 


NTIME 


MOM 


#Xy IPC 





JMP 


@<R4)i 


Xt 


♦ WORD 


fIR?Y 


yt 


MOM 


LASTMPyMP 




MOM 


#BACKyBK 




MOM 


STKBASi'BASE: 




MOM 


FP I PC? IPC 



y COUNT NUMBER OF MICROSECONDS 



"ADD 



BP 





MOM 


<SP)iy<RO)f 




MOM 


<SP)f ?<R0> 


SKIPI 


♦ WORD 


75714 


OMRFLW? 


HALT 






♦ WORD 


75714 


NTIMEI 


BIG 


#100000? (SP) 




ADD 


#1?(SP) 




BMI 


NERROR 




MOM 


#A?IPC 




JMP 


QiR4)~i- 


Al 


♦ WORD 


$IRyB 


Bt 


FADD 


SP 




MOM 


#77777 y~(SP) 




JMP 


y 


NERRORJ 


HALT 






♦ WORD 


75714 


ZTIMEI 


HALT 






♦ WORD 


75714 


nOSLDCI 


1 MOM 


#0P127?R0 




JMP 


UPDATE 



9 START TIMER AND EXECUTE OP 



■y OUTPUT ROUTINE TO BLOCK 40 OF BLANK FLOPPY ON #5 
MOM #5y~(SP) 
MOM #0P127?-(SP) 
MOM #2010? -(SP) 
MOM #40?--<SP) 



CLR 




-(SF* 


) 




JSR 




F^ 1 y S 


YIOI-; 


:Q 


♦ WORD 












HALT 
y REINITIALIZE OF'CNTS TABLES AND RESET COUNTER HACRO ROUTINE 





MOV 


#0P127yTABL0C 




MOM 


#1004?TABCNT 


I NIT J 


CLR 


C^TABLOC 




ADD 


#2rrABL0C 




DEC 


TABCNT 




B'NE 


INIT 




HALT 




TABLOCS 


♦ WORD 




tabcnt: 


•♦WORD 




OP:!. 271 


♦ FLT2 


0?0 



OPCNTSt ♦REPT 200 
♦FLT2 0?0 
♦ ENDM 

ADDER i ♦FLT2 1 
WDIJ ♦WORD 
WD2I ♦WORD 



C8R = 170420 




BPR ■•-"■ 170422 


^, ^ ^, „, „„ „„ ^, ^, 


CMPTBLI ♦WORD 





♦ WORD 


REALCMF 


♦ WORD 


STRGCMF 


♦ WORD 


BOOLCMF 


♦ WORD 


POWRCMF 



y Standard Procedure Tirfier 
>K)K>K >!<*){( ){<){( INSEI-rr INTO MAINOF 



;■' V V p ? ? ? y y ? ? ? ? y ? J* y y ? ? ? ? ? 

? MAIN INTERPF^ETER LOOP 
y GO HERE FOR OPCODE 
? FETCH SEQUENCE 



BLDCn MOM 
BACK J MOM 
CMP 
BEQ 
MOM 
MOM 



RO?-(SP) 
#1007? 170420 
#iyBPRSy 
SKXPIT 
#lyBPRSW 
i70422ySAMEBPR 



? PUSH THE LIT MALUE AND FALL INTO NEXT OP 
y STOP REAL TIME CLOCK 



BKIPITJ GETNEXT 

BPL SLDCI 

ASL RO 

MOM XFRTBL(RO)yPC 



5 GET NEXT INSTRUCTION BYTE 

f IF POSITIME THEN A SHORT LDCI 

? DOUBLE FOR yORD INDEXING 

f TRANSFER CONTROL TO PROPER OP 



^BI^ y INTEGER ABSOLUTE MALUE 

TST esp 

BPL 1$ 



M rmt'M INSERT INTO PROCOP 



2^t 



MOM 


LASTMP?MP 


MOM 


MPyRl 


TST 


<Rl)-{- 


MOM 


(Rl)-f yMP 


MOM 


(Rl)-f?JTAB 


MOM 


(Rl)4-ySE6 


MOM 


<Rl)-f ?IPC 


MOM 


MPyLASTMP 


MOM 


RO?SP 


MORE 





? RESTORE OLD MP MALUE 

9 NOW RESTORE STATE FROM MSCW 

? CHUCK STAT LINK 

y DYNAMIC LINK 



y NOy BACK IN STATE AT CALL TIME 



CSi 



y CALL STANDARD PROCEDURE 



JMP 



SKPCNT 



HOM 


oldro?f;:i 


ADD 


#J.OyRl 


HOM 


~(Rl)y-(SP) 


MOM 


"(Rl) y"-<SP) 



? COUNT EXECUTIONS 





HOM 


A0NE>2y~(SP) 




MOM 


AONE!'~(SP) 




FADD 


SP 




HOM 


(SP) + y (Rl)-f 




HOM 


(SP)-f?(RJ.) 




TSTB 


CSR 




BHI 


OMRFLW 




TST 


SAMEBPR 




BEQ 


ZTIHE 




HOM 


OLDROyRl 




ADD 


#4?R1 




HOM 


"<Ri)?-<SP) 




HOM 


~(R1)?-(SP> 




HOM 


SAMEBPR? -CSP) 




HOM 


RO?SAMERO^ 




HOM 


IPCpSAMER4 




TST 


(SP) 




BHI 


NTIHE 


ct 


HOM 


#DyIPC 




JMP 


fi (R4) "J- 


xn 


*WORD 


$IR?E 


Et 


HOM 


LASTHPyMP 




MOM 


0LDR0?R1 




HOM 


SAMERO?RO 




HOM 


#BACKyBK 




HOM 


STKBAS^BASE 




HOM 


SAMER4!'1:PC 




FADD 


SP 




HOM 


(SP)4-y CRDi 




HOM 


(SP)i?(Rl) 


BKF 


•'CNTI OETNEXT 


. 




ASL 


RO 




HOM 


ROyOLDRO 




ASL 


OLDRO 




ASL 


OLDRO 




ADD 


#CSPCNTS? OLDRO 




HOM 


#OyBPRSW 




HOM 


#ON»CSR 



? CHECK FOR TIMING ERRORS 



9 COUNT HICROSECONDS 



f CHECK FOR NEGATIME TIMES 



URN TIMER ON 



mv^ CSPTBL(RO) fPC 



samebpr: *yORD 
bprsw** *word 1 

gmrflwj halt 
zt;i;mei halt 
n t i he i b i c #1 00000 ? ( sp ) 

HOM #i:iXyIPC 

JHP @(R4)-f 

i:\Xt ♦WORD $IR?EX 

EXt FADD SP 

H V # 7 7 7 7 7 ? -•• ( S P ) 

JHP C 



GLDROI ♦WORD 
SAUEROI ♦WORD 
CSPCNTSI ♦REPT 50 

♦FLT2 0?0 

♦ ENDH 

AONEI ♦FLT2 1 
BAMER4I ♦WORD 

ON -" 17 

CSR =-- 170420 

BPR = 170422 

? OUTPUT ROUTINE TO BLOCK 40 OF BLANK FLOPY ON #5 

MOM #5y-<8P) 

HOU #CSPCNTS?~(SP) 

HOM #500? -<SP) 

HOM #40y-(SP) 

CLR ~(SP) 

JSR R1?SYI0RQ 

♦WORD 

HALT 



lOCI y 10 CHECK 

TST e#IORSLT 
BEQ 1$ 



APPEnDIX X •- Microcode ListinB' 



9 .INlERFsnlC 



FINAL MICROCODE LISTING 



jK >J<>K 5K 5K >K 5K ;K )K >K >K )^ >K >K iK >K>K ^ >i< ^ >{< 5K * 

■) HACRU MEMORY LOCATIONS 

LLABTMP - 16 
l-!LASThP ™ 1 

LJTAB =^20 
i-iJTAB =••= i 

LSEG = 22 
1-ISEG == 1 

r^ Hv ^ * >K >K * >K ^' 5K ii' >{< * '4i ^ * )K )« ^i * ^' 5K >K 

? MARK STACK OFFSET VARIABLES 

MSSTAT =: 
MSDYN ~ 2 
iiSIPC -10 
hSSEG ~ 6 
MSJTAB == 4 
iiSSP == 12 

m?:>;base " -2 

MSDLTA =:: 12 

;5 >K >{< 1 1 >K :=K 1 1 >|i t :^: * 1 1 * t * >K )« i< >K * M W- 1 1 )K 

9 JTAB OFFSETS 

ENTRIC "-=•■ -2 
DATASZ = -10 
PARMSZ - -6 







CORE SECTION 

LOC 3000 

JHP OjTROFF 
JMP DECODE 
JMP OyTROFF 


zR\ 


■mR t 


JMP OyTROFF 



LOC 3004 
REREADS AL -2?PCL?RSMC 
CDB PCH 



? OPCODES 220-227? RESERVED BY DEC* 

f OPCODES 76000-76777? TOP 64 ARE OURS* 

? MICRO POWER UP* 

? OP CODES 75040-75777? RESERVED BY DEC* 

? MICROINTERRUPT ABORT ENTRY POINT* 

? RETURN TO MACRO TO SERVICE INTERRUPT* 

9 DECREMENT PC SO SAME OPCODE WILL BE 

? READ AGAIN* 



DECODE J CL 


175!.rif;:l 


JZBF 


ef;;ror 


CL 


304yf"aRH 


JZBT 


IFETCH 


AL 


20yRIRH 


JC8F 


ERROR 


MI 


RPSWL?RIRF- 


JMP 


3760 


LOC 


3760 


JHP 


DECHO'v' 


JHP 


DECHOU 


JHP 


DECMOM 


JHP 


OyTROFF 


JMP 


CLP 


JMP 


CIP 


JHP 


OyTROFF 


JMP 


QyTROFF 


JHP 


INCHOM 


JHP 


IHCmK^ 


JMP 


IMCMOV 


JMP 


0?TROFF 


JMP 


0PBIi3 


JHP 


Os-TROFF 


JMP 


CHK 


JHP 


LKLST 



CHECK OPCODE TO MAKE SURE ITS LEGIT* 

NOTE? HIGH ORDER BYTE OF OP IS IN 

RIRL AND LOy BYTE IS IN RIRH* 

QUICK CHECK FOR INTERPRETER FETCH OP 

76704 FOR EXTRA SPEED* 

CHECK OPCODES FOR RANGE 76760-76777 



? USE LOWER • 
9 MICRO JUMP 



BITS OF OPCODE TO INDEX 
TABLE* 



MICRO 


JUMF 


-• TABLE 


5 OP ( 


:ODE 


76760 


? 




76771 


? 




76762 


A 

f 




7676Z 


A 




76764 


? 




76765 


A 

y 




76766 


A 

? 




76767 


? 




76770 


? 




76771 


? 




76772 


3 




76772 


? 




76774 


? 




76775 


? 




76776 



/ i> / / 



? 7 ~i 



LOC 



SLDCIt ? SHORT LOAD CONSTANT INTEGER 

AL ~2ySPL y PUSH OPCODE ONTO STACK 

CDB SPH 

W SPH?SPL ? ( MOM R0?~(SP> ) 

OW RPSWLyRDSTL 

CINTRP? % CHECK FOR INTERRUPTS AND THEN FALL INTO INTERPRETER FETCH 
SI 16 
LL 4yRIRH?RSMC 
Kl 16 

I FETCH I ? INTERPRETER FETCH 

y THIS IS SIMILAR TO THE BACK ROUTINE IN MACROCODE* 

? DIFFERENCES ARE I 

% 1* XFRTBL CONTAINS BOTH MICRO AND MACRO ADDRESSES* 

? MICRO ADDRESSES HAME HIGH ORDER 5 BITS SET TO IS* 

? 2* REGISTER IS NOT LOADED WITH THE OPCODE* 



% INTERNAL REGISTERS ARE INITIALIZED DURING THE COURSE OF 

% IFETCH AND CINTRP TO THESE MALUESI 
? RSRCL =--•= 1 
? RBAH ==2 
y F^E^AL ~ 3 



HACRO 



9 


RIRH ^ A 


5 


RIRL =: 5 


LGL 


RIRH 


Fn:y;!. 


GI-bGL 


LL 


5? RIRL 


LL 


6?RSRCL 


IB 


2?RBSTL 


JHBF 


SLUG I 


SLB 


RDSTL?RDSTL 


R 


RSRCLyRDSTL 


LL 


1 f RSRCL 


LL 


2yRBAH 


LL 


3yRBAL 


I hi 


0?RDST 


AL 


lOyRDSTH 


JC8F 


MACRO 


MI 


RDSTH?RDSTL 


JHP 





AL 


-lOyRDSTFbRSMC 


My 


RDST?PC 







? READ OPCODE 

y TEMPORARY ~ WHEN XFRTBL IS MOVED TO 
? ADDRESS 400 CHANGE TO LL I? RSRCL ♦ 



J ACCESS XFRTBL* 

9 TEMPORARY - SEE NOTE ABOME 



? SEE IF ITS MICRO OR MACRO ADDRESS* 



f JUMP TO MICRO ROUTINE* 



9 BACK TO MACRO 



P-MACINE OP CODES 



LDOI 



9 LOAD 


GLOBAL WORD 


JMP 


PRCBIG?LRR 


sLy 


GyRDST 


AL 


MSDLTAyRDSTL 


CIB 


RDSTH 


LGL 


RBAL 


AW 


G?RDST 


R 


RDSTH ?RDSTL 


SW 


RBAH?SP 


IW 


0?RDST 


W 


SPH ? SPL 


OW 


RDSTH yRDSTL 


JMP 


CINTRP 



BROS ? STORE GLOBAL WORD 

...mF PRCBIG?LRR 

SIM Gi'RDST 

RIW2 SF-'HySPL 

AL HSDLTA?RDSTL 

CIB RDSTH 

LGL RBAL 

ly 0?RSRC 

AW G?RDST 

W RDSTH ?RDSTL 

OW RSRCH?RSRCL 

JMP CINTRF" 



LLPit f LOAD LOCAL ADDRESS 

JMF-' F'RCBIG?LRR 
SLW GyRDST 



AL 


MSDLTA?RDSTL 


CIB 


RDSTH 


LGL 


RIRL 


AW 


G?RDST 


SW 


RBAH?SP 


W 


SPHySPL 


OW 


RDSTH ?RDSTL 


JMF' 


CINTRP 



.AG^ y LOAD GLOBAL ADDRESS 
JMP PRCBIG»LRR 
SLW G?RDST 



AL 


HSDLTAyRDSTL 


CIB 


RDSTH 


LGL 


RBAL 


AW 


6?RDST 


SW 


RBAH?SP 


W 


SPHfSPL 





oy 


RDSTH?RDSTL 




JHP 


CINTRP 


v>K^>K5K)K 






AND? 


? mu 






RIW2 


SPHi-SF'L 




m 


Oi^RDST 




R 


SPi-bSPL 




IW 


4yRSRC 




HU 


RSRCpRDST 




ow 


RDBTH?RDSTL 




JMP 


CINTRP 


?>K>K>K>i<)K 






LDClt 


y LOAD 


CONSTANT yORD 




L6L 


RIRH 




RIUJl 


GHyGL 




IB 


2?RDSTL 




RIWl 


GH?GL 




SW 


RBAH?SP 




IB 


2i^RDSTH 




W 


SPH ? SPL 




aw 


RDSTHyRDSTL 




JHF' 


CINTRP 



FJPt y FALSE JUMP (NOTE? REQUIRES UJP BE PRESENT) 

RIW2 SPH? SPL 

LGL RIRH 

IBi" IfRSRCL 

SRBF" RSRCLyRSRCL 

JCF UJPSKP 

ICWi G?G 

JMP CINTRP 

UJP I ? UNCONDITIONAL JUMP 

LGL RIRH 

UJPSKP I RIW.1. GHyGL 

IBF 2yRSRCH 



LONG^ 



JNBT 


LONG 


AW 


RSRCHyG 


JMP 


CINTRP 


LL 


lyRDSTH 


LL 


20yRDSTL 


R 


RD8TH?RDSTL. 


;i;w 


OvG 


AW 


RSRChbG 


R 


6H?GL 


IW 


OyRSRC 


sw 


RSRC?G 


JMP 


CINTRP 



SUB I ? COMMON PROCEDURE USED BY CDHPARISON; 
RIW2 SPH?SP 
IW 0?RIR 





R 




SPH?SP 




IW 




OyRDST 




SWF 




RIRyRDST 




RFB 






9 >1<>I<^<>K 








EQUIJ 


■5 IN' 


TE 


GER EQUAL 



JMP SUByLRR 
JZT PSHTRU 



PSH 


FLBt LL 


OyRSRCL 




i^-'SH 


TRUt W 


SPHySPL 






OW 


RPSWLyRSr 


i:CL 




JMP 


CINTRP 





HEQlt y INTEGER NOT EQUAL COMPARE 

JMP SUB?LRR 
JZF PSHTRU 
JMP PSHFLS 



?5K)K>K* 






LEO I J 


y INTi 


EGER LESS TH 




JMP 


SUBjLRR 




JZT 


PSHTRU 




CCF 


RBAL 




NL 


12? RBAL 




JZBT 


PSHFLS 




OCB 


RBAL? RBAL 




JZBT 


PSHFLS 




JMP 


PSHTRU 


?>K>K** 






GRTI? 


? INTEGER GREATER 



COMPARE 



THAN COMPARE 



JZT 


PSHFLS 


CCF 


RBAL 


ML 


12i'RBhL 


JZBT 


PSHTRU 


GCB 


RBAL? RBAL 


JZBT 


PSHTRU 


JMP 


PSHFLS 



3JLt 



9 STORE LOCAL 

JHP PRCBIGi^LRR 



SLW 


GyRDST 


AL 


12yRDSTL 


CIB 


RDSTH 


RIW2 


SPH?SPL 


Li3L 


RIRL 


AW 


GyRDST 


m 


0?RSRC 


w 


RDSTH yRDSTL 


ow 


RSRCHyRSRCL 


JHP 


CINTRP 



9tttt 






XJPI 


f CASE 


TABLE 




R]:y2 


SPHjSPL 




LGL 


RIRH 




icwi 


GyB 




IW 


OyRDST 




NL 


376 vGL 




RIW2 


GH?GL 




IW 


OyRSRC 




RXW2 


GH?GL 




CWF 


RSRCyRDS 




CCF 


RIRL 




IW 


OyRBA 




NL 


12? RIRL 




JZBT 


CONTl 




OCB 


RIRLyRIRL 




JZBF 


XJPEXIT 


CONTIJ 


CWF 


RDSTyRBA 




CCF 


RIRL 




NL 


12yRIRL 



JZBT C0NT2 
OCB RIRLxRXRL 
JZBF XJPEXIT 



C0NT2I ICW2 G^G 



sw 


RSRC?RDST 


SLW 


RDST?RDST 


AW 


RDST?G 


R 


6H?GL 


IW 


0?RDST 


SW 


RDST?G 


XJPEXITI JHP 


CINTRP 



y*>K>K^ 






LBHt 


? LOAD 


MULTIPLE 




R 


SPI-USPL 




LGL 


RIRH 




MW 


SPyRDST 




IW 


OyRSRC 




R 


GH?GL 




DWl 


G?G 




LL 


0?RBAH 




IB 


2?RBAL 




JZBT 


LDMEXIT 




BW 


RBAL?RDST 




SW 


RBAL?RIiBT 




icy2 


RDST.»RDST 




MW 


RDSTyRBA 


LDHLOPI 


SI 


16 




LL 


lyRIRI-URSMC 




RI 


16 




RIW2 


RSRCHyRSRCL 




CWF 


RDSTy BP 




IW 


QyRIR 




WIW2 


RDSTHyRDSTL 




OW 


RIRHyRIRL 




JZF 


LDMLOP 




MW 


RBAvSP 



LDMEXI 


Ti icw:; 


I G9G 




JMP 


CINTRP 


?>i<>k>K^ 






RNP^ 


y REi 


■URN FROM NORMAL 




L6L 


RIRL 




MW 


G?F'^SFilC 




AL 


MSSPyRSRCL 




CIB 


RSRCH 




R 


RSRCHyRSRCL 




LGL 


RPSWL 




m 


0?G 




LGL 


RIRH 




R 


GH ?GL 




DWl 


GyG 




LL 


OmRBAH 




IB 


2yRBAL 




JZBT 


DOPROC 




AW 


RBAyRSRC 




Ay 


RBA?RSRC 




LGL 


RPSWL 




LL 


2yRBAH 


RNF'LOP 


t R 


RSRCH ?RSRCL 




SW 


RBAHyRSRC 




SW 


RBAH?G 




IW 


0?RDST 




y 


GH?GL 




ow 


RDSTHyRDSTL 




DBi 


RBAL?RBAL 




JZBF 


RNPLOP 



PROCEDURE 



DOPROCI LGL 



RIRL 



SI 


16 


MW 


G?RSRC?RSUC 


RI 


16 


ICW2 


RSRC y RSRC 


RIW2 


RSRCH f RSRCL 


LL 


LLASTMPyRDSTL 


LL 


HLASTMP?RDSTH 


ly 


0?G 



.ASTMP 



WIW2 



RDSTHyRDSTL 



y LASTMP 



OW GH?GL 



R3:W2 


RSRCHyRSRCL 


? JTAB 


LGL 


RF'SWL 




IW 


OyRBA 




wj:y2 


RDSTH?RDSTL 


? JTAB 


oy 


RBAN^RBAL 




Fn:w2 


RSRChbRSRCL 


? SEG 


MW 


G^SP 




IW 


0?RBA 


, 


y]:w2 


RDSTH?RDSTL 


? SEG 


ow 


RBAH?RBAL 




R 


RSRCHyRSRCL 


y IF'C 


LGL 


RIRH 




IW 


Oi-G 




JHP 


CINTRP 





y COMHOH F'ROCEDURES SECTION 

V THE FOLLOWING ARE COHHGH PROCEDURES THAT CAN BE USED BY 

? ANY P-HACHINE OPCODE* 



:i GETBIG •••• PERFORMS THE SAHE FUNCTION AS THE GETBIG MACRO EXCEPT 
ii THE MALUE RETURNED IS ALWAYS IN REGISTER 0* 

y A S S U M E S R I R H C N 7" A I N S A 4 * 

OPBIGI y ENTRY POINT FOR GETBIG OPCODE ~ FROM MACRO CODE* 
JMP PRCBIG?LRR 
NOP RSMC 

'i GETBIG PROCEDURE ~ CALLED FROM MICROCODE* 



PRCBIGt 


P ENTRY 


POINT 




LGL 


RIRH 




RIWl 


GH?GL 




LGL 


RPSWL 




LL 


OfGH 




IB 


2y6L 




JNBF 


I SMALL 




LGL 


RIRH 




RIWl 


GHyGL 




LGL 


RPSWL 




MB 


GLvGH 



NL 177 ^Gh\ 
IB 2yGL 



;i! SMALL* RFS 



INCMOv^t ? OPCODE 76770-76772 

? PERFORMS THE OPERATION 
f 1$? MO'v' (RB)fp(RC) + 
? SOB RA»1$ 

9 RA IS THE LOW ORDER DIGIT OF THE OPCDOE AND RB AND RC 

? ARE THE LOW ORDER 3 BITS OF THE LOy AND HIGH ORDER BYTES 

» RESPECT I MILY OF THE WORD FOLLOyiNG THE OPCODE* NOTE? 

? RA CAN ONLY BE REGISTERS Oyly OR 2 AND THE REGESTER SHOULD 

? CONTAIN A NUMBER > TO OPERATE AS PROBABLY INTENDED 

LIKE A SOB) 



;L00i 



y (I*E* 


IT yiLL BEHA^^E 


R 


PCHyPCL 


ly 


0?RBA 


SI 


16 


LGL 


RBAL?RSMC 


RI 


16 


Rxy2 


GHjGL 


LGL 


RIRH 


DWIF 


G y G .,-;.. 


ly 


0?RDST 


LGL 


RBAH 


yiy2 


GH y GL 


oy 


RDSTH?RDSTL 


JZF 


ILOOP 


icy2 


PC?PC?RSMC 



y ttt NOTE RSUC HERE 



!.J<LST^ y OP CODE 76777 

y PERFORMS THE FUNCTION 

? l$i MOU ©RiyRl 

y SOB R0?1* 

? THE INITIAL ADDRESS MUST BE IN REGISTER 1 AND THE COUNT 

y IN REGISTER 0» THE COUNT MUST BE IN THE RANGE i**127 TO 

? yORK PROPERLY ♦ 

LL lyRSRCL 

LLQOPI SI 16 

LGL RSRCLyRSMC 
RI 16 

R GHyGL 



LGL 


RPSWL 


DBIF 


GL?6L 


LGL 


rsf;:cl 


IW 


Oi^G 



JZF- LLOOP 

NOP RSMC 

NOP ? -mt TEHPORARY 



DECHOUI ? opcode:: 76760-76762 

y PERFORHS THE OPERATION** 

f $11 HOM -(RB)p-<RC;) 

f SOB RAjlli 

■9 RA IS THE LOW ORDER DIGIT OF THE OPCODE AND RB AND RC ARE 

f THE LOW ORDER 3 BITS OF THE LOW AND HIGH ORDER BYTES 

■9 RESPECTIVELY OF THE WORD FOLLOWING THE OPCODE* NOTE? RA 

y CAN ONLY BE REGISTERS Oi*! OR 2 AND THE REGISTER SHOULD 

9 CONTAIN A NUMBER > <I*E» IT WILL BEHAVE LIKE A SOB) 

R PCHyPCL 
IW 0?RBA 
LL 27RSRCH 

DLOOPi SI 16 

LGL RBALi'RSVD^^ 
RI 16 

GW RSRCH?G 

R GH?GL 

LGL RIRH 

DWJ.F GyG 

IW 0?RDST 

LGL RBAH 

SW RSRCH?G 

W GHyGL 

OW RDSTHyRDSTL 

JZF DLOOP 

ICW2 PC?PC?RSyC 

NOP ?^*)K*T£HPORARY - FIND NON JUHP 



V MACRO P-MACHINE OPS 

■f THIS SECTION CONTAINS THOSE P~HACHINE OPS THAT HAVE THEIR OWN 

5 OPCODE I*E* THEIR MICRO ADDRESS IS NOT OBTAINED FROM THE XFRTBL 



CHKt ? CHECK AGAINST SUBRANGE BOUNDS 

yOP CODE 76776 

i) MACRO CODE SHOULD LOOK LIKEJ 
? *yORD 76776 
9 «yORD 76704 

y TRAP INVNDX 

Riy2 SPHySPL ? GET MAXIMUM RANGE 

ICW2 PC? PC ? THIS INSURES THAT BOTH THE INWNDX 

y AND NORMAL CINTRP EXIT ROUTINES WORK RIGHT 
IW . OyRSRC 

? GET MINIMUM RANGE 

p GET SCALAR 



RIW2 


SPH y SPL 


IW 


O^RDST 


R 


SPHySPL 


IW 


OyRIR 


CWF 


RIRyRSRC 


JMP 


LSSTHNyLRR 


CWF 


RDSTyRIR 


JMP 


LSSTHN?LRR 


JMP 


CINTRP 



f CHECK MAXIMUM RANGE 



? CHECK MINIMUM RANGE 



RTRNI 


RFS 


"■'■-■ 


LSSTHNI 


CCF 


RBAL 




NL 


j.2?RBAL 




JZBT 


RTRN 




OCB 


RBAL? RBAL 




JZBT 


RTRN 




NOP 


RSMC 



? IF LESS THAN ••••> RETURN 
? TO MACRO CODE FOR TRAP 



RANGE ERROR ^^t NOTE RSMC 



CIPI y OPCODE 76765 

y CALL INTERMEDIATE PROC - SEARCH FOR PARENT 



QUI' 
CON" 



LL 

LGL 


lyRIRH 
RIRH 


R 

LGL 
IB 


GHyGL 
RIRL 
OyRBAH 


JZBT 
JNBF 


QUIT 
CONT 


ICW2 
MW 


PC y PC y RSMC 
GyRDST 



y (DELETE THIS ONCE REAL OP CODE IS IN USE) 



y GET LEX LEMEL OF PROCEDURE BEING CALLED 



y IF ZERO OR --1 RETURN TO MACRO CODE FOR 
y JUMP TO THE LAST PART OF CBP 



LOOP J AL 4rF5;riSTL ? SEARCH DOWN DYNAMIC LINK FOF^ PARENT 

CIB RDSTH 

R RDSTH ?RDSTL ? GET JTAB FROM HSCW 

IW 0?RSRC 

S T J A 

LL 2?RIRHyRSVC ? CHECK FOR INTERRUPTS 

RX 16 

R RSRCH?RSRCL ? GET LEX LEMEL OF THE PROCEDURE 

SU RIRH?RDST 

IB 0?RBAL 

CB RBAH^RBAL ? COMPARE LEX LEMELS 

JNBT GOT IT f IF ITS LOWER WE 'ME FOUND THE PARENT 

R RDSTH ?RDSTL f IF NOT LINK DOWN TO NEXT PROCEDURE 

IW OyRDST ? ON THE DYNAMIC STACK 

JMP LOOP 5 KEEP LOOKING FOR PARENT 

GGTITI SW RIRHyRDST 

R RDSTH ?RDSTL 

IW OyRSRC f PUT LEX LINK ON THE STACK 

W GHs^GLyRSUC 

OW RSRCH?RSR.GL 



y :^>ii>K^ 






CLPERRI 


NOP 


RSMC 


CLPI 


y CALL 


LOCAL PROCEDi 




LL 


LSEG^RDSTL 




LL 


HSEG? RDSTH 




LGL 


RPSWL 




R 


RDSTH ?RDSTL 




MW 


SP f G 




LL 


2yRBAH 




LGL 


RBAH 




IW 


OfG 




LGL 


RIRH 




R 


GH?GL 




LL 


1 f RSRCL 




LGL 


RSRCL 




LL 


0?GH 




IB 


2?GL 



V STACK OMERFLW - RETURN TO MACRO 



? MOM SP?RO 

? USES R2 INSTEAD OF OLDSEG 
y MOM SEQ? OLDSEG 



y GETBYTE Rl 



SLW 


G?0 


TCW 


GyG 


LL 


LSEG?RDSTL 


LL 


HSEG?RDSTH 


R 


RDSTHyRDSTL 


IW 


OfRBST 


AW 


RDST?G 


R 


GH?6L 


LL 


377yRDSTH 


LL 


DATASZ?RDSTL 


IW 


OyRSRC 


SW 


RSRCyG 


AW 


GyRDST 


R 


RDSTHyRDSTL 


LL 


SOyRBAL 


MW 


SF'jRDST 


IW 


0?RSRC 


SI 


16 


SW 


RSRCyRDST 


RI 


16 


R 


RPSWLyRBAL, 


LGL 


RIRL 


IW 


0?RSRC 


CW 


RDST?RSRC 


JZBT 


CLPERR 


JC8T 


CLPERR 


AL 


"-14yRDSTL 


CDB 


RDSTH 


HW 


RDSTi'RIR 


WIW2 


RDSTH ?RDSTL 


OW 


GHjGL 



? ASL Rl 
? NEG Rl 



? ADD SEGyRl 



f SUB §R1?R1 



f SUB DATASZ(R1)?SP 



y CMP SPjNP 
? BLOS CLPERR 

? REVERSE PUSH ORDER 



si MOM MPy-(SP) 

LL LJTAB?RSRCL 

WIW2 RDSTHyRDSTL 

OW GHyGL f MOM MP?-(SP) 

LL HJTABjRSRCH 



f;: 


RSRCHyRSRCL 


LGL 


RBAH 


LL 


lyRSRCL 


IW 


OyRBA 



WIW2 


RDSTHyRDSTL 


OW 


RBAHyRBAL 


LL 


4?RSRCH 


w;i;w2 


RDSTHyRDSTL 


OW 


GH?GL 


LGL 


RSRCH 


ICWl 


G y RBA 


w 


RDSTH?Ri:iSTL 


OUJ 


RBAHyRBAL 



LGL 



RSRCL 



y HOM JTABy-<SP) 



? MOV OLDSEGy-(SP) 

? <R2 USED INSTEAD OF OLDSEG) 



.; MOV IPC?-(SP) 



81 
MW 
RI 


16 

GyRDST 

16 






AL 
CDB 


PARMSZyRDSTL 
RDSTH 






R 

LGL 
lU 


RDSTHyRDSTL 

RPSWL 
OyRDST 


7 
f 


HOV PA 
(IPC 


JZBT 


CLPF-IN 


y 


BEG 2$ 



SRW RDSTH ?RD&TH ? ASR IPC 

MW RIR?RSRC f MOM SP?MP (HP NOT USED) 

MSDLTA-f2? RSRCL 

? ADD #MSDLTA-{-2yMP 





AL 


MSDLTA-f2?F 


^S 




CIB 


RSRCH 




CLPLOP? 


RIW2 


GHyGL 






DWIF 


RDSTyRDSl 


■• 




m 


0?RBA 






SI 


16 






LCF 


OsfRPSWL 






RI 


16 






wiy2 


RSRCH ?RSRi: 


:l 




OW 


RBAH^RBAL 






JZF 


CLPLOP 




CLPFINI 


MW 


RIRySP 






LL 


5? RIRL 






LL 


4fRIRH 






LGL 


RIRL 






MW 


SP»6 





? SET Z FLAG TO FALSE 



y MOV Spy MP 



LL 


LLABTMPyRDSTL 


LL 


HLASTMPi'RDSTH 


wj;y2 


RDSTHyRDSTL 


ow 


GHyGL 


MW 


GyRSRC 


AL 


MSSF^RSRCL 


CIB 


RSRCH 


LOL 


RP8WL 


y 


RSRCH ?RSRCL 


ow 


GHyGL 


LL 


lyRSRCL 


L6L 


RSRCL 


W 


RDSTH y RDSTL 


OW 


GHjGL 


MW 


GyRDST 


AL 


ENTRICy RDSTL 


CDB 


RDSTH 


R 


RDSTH? RDSTL 


LGL 


RIRH 


HW 


RDSTyG 


IW 


OyRDST 


SW 


RDSTyGyRSMC 


ICW2 


PC? PC 



f MOM MPyLASTMP 



f MOM ROyMSSP(MP) 



f MOU R1?JTAB 

J MOM RI7IPC 

5 ADD #ENTRICyIPC 



f SUB ©IPC? IPC 

y SKIP OMER STACK OMERFLW ERROR BR 



*END 



DISTRIBUTION LIST UC ID 18046 



Dick Nordrum 2 

Educational Data Systems 
1682 Langley Avenue 
Irvin, California 92714 

Mark Overgaard 5 

Institute for Information Systems 
University of California at San Diego 
La Jolla, California 92093 

Don Gaubatz 2 

Digital Equipment Corp. 

R&D Group 

ML3 - 2/E41 

146 Main Street 

Maynard, Massachusettes 

Gordon C. Smith 10 

Roger Anderson 10 

Rudy Langer 2 

TID 15 



